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Preface 



This publication describes the internal logic and specifi- 
cations of System/3 BASIC, a program product, for the 
IBM System/3 Model 6. The manual is designed to 
satisfy the documentation requirements of support 
personnel responsible for maintenance of System/3 
BASIC. 

Section 1, "Introduction," contains a general descrip- 
tion of the modes of operation, functions, and charac- 
teristics of the prograrnrriing system and the machine 
configuration. 

Section 2, "Method of Operation," describes the 
functional flow of the program logic and data. Illustra- 
tions and supporting text trace the functional flow of 
the stand-alone computing system from input, through 
processing stages, to desired results (output). The usage 
of primary data areas is emphasized. 

Section 3, "Program Organization," describes how the 
programs and routines that comprise System/3 BASIC 
are interconnected, and describes the functions of com- 
ponents. Because of the interactive environment, func- 
tion level flowcharts are used extensively to describe 
complex programs. 

Section 4, "Directory," contains a cross-reference 
table of all system components, for quick reference to 
System/3 basic assembly listings on microfiche. This 
section also defines source module labeling conventions 
and system equates. 



Section 5, "Data Area Formats," contains detailed 
layouts of system data areas (communications area, 
directory formats, record formats, error-recording 
formats, parameter formats, etc.). 

Section 6, "Diagnostic Aids," describes the main- 
tenance utility program, program temporary fix 
(PTF) commands, and other useful servicing information. 

Section 7, "Object Program," describes the interpreter/ 
compiler functions, including a method for laying out 
the contents of an execution-time disk dump- of virtual 
memory, the method for determining the contents of an 
execution-time core dump, and pseudo-machine-language 
formats. 

Appendix A, "System/3 Basic Assembler Language," 
contains mnemonic operation code lists, instruction 
format descriptions, and an assembler instruction ref- 
erence table. 

Other publications related to this manual are: 

IBM System/ 3 Disk System Basic Assembler Manual, 
SC21-7509 

IBM System/ 3 Model 6 Components Reference Manual, 
GA34-0001 

IBM System/3 Model 6 System/3 BASIC Reference 

Manual, GC34-0001 
IBM System/3 Model 6 System/3 BASIC Operator's 

Guide, GC34-0003 
IBM System/ 3 Model 6 System/ 3 BASIC Reference 

Handbook, GX34-0001 
IBM System/ 3 Model 6 System/ 3 BASIC Desk 

Calculator Reference Card, GX34-0002 
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Section 1. Introduction 



System/3 BASIC is a conversational, stand-alone, programming system oriented toward 
mathematical problem solving. It offers two modes of system operation: 

• BASIC 

• Desk calculator (DCALC) 

BASIC MODE OF OPERATION 

BASIC mode is programmed with a conversational programming language which is also 
called BASIC. The user develops program, data, and procedure files in an interactive 
environment; that is, he communicates with the system programs by entering (through 
the keyboard or the data recorder) BASIC statements, data-file lines, system commands, 
utility commands, and procedure-file lines. BASIC statements form BASIC programs, 
data-file lines specify the content of a data file, system and utility commands request 
immediate system action (except when entered as lines of a procedure file), and pro- 
cedure-file lines (composed of BASIC statements, data-file lines, and commands) specify 
system actions to be performed at a later time. 

A BASIC statement is a single line identified by a line number. Lines may be entered 
in any order and are automatically collected into a program file and ordered with respect 
to line number. Each statement is syntax checked as it is entered. Syntax is the specified 
way in which words and characters are combined in program-statement lines, data-file 
lines, and command lines. When errors in syntax are detected, an error message is gener- 
ated and printed on the system printer. 

A BASIC program is completely compiled when execution is specified by a system 
command. Line numbers provide a simple program editing facility by allowing the 
replacement of previous lines with new or null lines, and the insertion of new lines into 
the file. Data files may also be created and modified in the same manner as program files. 
The user develops a procedure file by entering lines that begin with a line number and are 
followed by either a system or utility command, a BASIC statement, a data-file line or 
another procedure-file line. Procedure file lines are syntax checked when they are called 
for execution, not as they are entered into the work file. 

System commands are one keyboard line and are distinguished by lack of a statement 
number. They may be intermixed with program or data file lines in any manner. Each 
command is a unique keyword and an optional parameter list in a free-form format. Key- 
word commands have the following system functions: 

• File editing. 

• Initialization/modification of program execution. 

• File library creation and management (source programs and data files may be saved 
on disk in either a private or pooled library). 

• Disk utility functions. 

Programs in the system program file (system program area) analyze the file and com- 
mand lines, that the user enters, for syntax errors. These programs also perform the oper- 
ations specified by command lines and the command keys (located on the left side of the 
keyboard). 

The user has several ways to correct errors he made while entering BASIC statements, 
| data-file lines, procedure-file lines, system commands, and utility commands. Also, these 
same procedures can be used to correct BASIC program errors that the system finds 
during program execution - 

Introduction 1-1 
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System/3 BASIC provides the user with execution time debugging aids: 

• Trace mode. 

• Step (one statement at a time) execution mode. 

• Display and change program variables during execution. 

• Interrupt and suspend execution at any point, perform other system functions, and 
later resume execution. 

System/3 BASIC also provides the user with several utility functions. These functions 
use utility commands and include operations such as system generation and disk initiali- 
zation, and they assign space on disks for work areas and libraries. 

System/3 BASIC provides to the IBM customer engineer a maintenance utility aid pro- 
gram with ten options for diagnosing and correcting problems in the system. Program tem- 
porary fix (PTF) commands (used to apply PTF patches), an I/O parameter list save area, 
and other maintenance features are discussed in Section 6. 

DESK CALCULATOR (DCALC) MODE OF OPERATION 

DCALC permits the user to add, subtract, multiply, divide, compute powers and roots, 
and perform many other mathematical functions without using a programming language. 
The numeric keys and the first eight command keys of the keyboard are used with 
DCALC. The mathematical functions in the system are requested by entering the name 
of the function through the typewriter keyboard. 

MINIMUM MACHINE CONFIGURATION 

The minimum machine configuration required to operate System/3 BASIC is as follows: 

• An IBM 5406 Processing Unit Model B2 (8k main storage) and the first eight 
command keys. 

• An IBM 5444 Disk Storage Drive Model 1 with one fixed disk and one removable 
disk containing a total storage capacity of 2,457,600 bytes. 

• An IBM 5213 Printer Model 1 with a 13-inch carriage and 132 print positions or a 2222 
I Printer Model 1 with a 22-inch carriage and 220 print positions. 

SUPPORTED OPTIONAL DEVICES 

Optional IBM devices supported by System/3 BASIC are: 

• 5406 Processing Unit Model B3 (12k main storage). 

• 5406 Processing Unit Model B4 (1 6k main storage). 

• 5444 Disk Storage Drive Model 2 with one fixed disk and one removable disk 
(4,915,200 bytes). 

• Two 5444 Disk Storage Drives Model 2 with two fixed disks and two removable 
disks (9,830,400 bytes). 

• One 5444 Disk Storage Drive Model 2 with one fixed disk and one removable disk, 
and one 5444 Disk Storage Drive Model 3 with one removable disk (7,372,800 bytes). 

• 5213 Printer Model 2 (13-inch carriage, 132 print positions). 

• 5213 Printer Model 3 (13-inch carriage, 132 print positions with bidirectional 
printing). 
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• 2222 Printer Model 1 (22-inch carriage, 220 print positions). 

• 2222 Printer Model 2 (22-inch carriage, 220 print positions with bidirectional 
printing). 

| • 5496 Data Recorder Model 1 (with the System/3 Model 6 Attachment). 

• 2265 Display Station Model 2 (this requires 1 2k main storage and eight additional 
command keys). 

I- 129 Card Data Recorder (with the Card Input/Output Attachment for the System/3 
Model 6). 



FLOWCHARTING TECHNIQUES 

This PLM (program logic manual) has two flowcharting techniques: 

1 . Function level— Shows the sequence of major internal objectives of complex 
programs (an example is Figure 3-22). Process blocks are keyed to the program 
listing with a label, if a label exists at that logical point. Process blocks contain 

a list of functions executed to accomplish the major objectives within the logical 
flow of the program. The language within the block is understandable at a level 
external to the program, so the flowchart serves as an index to the program listing. 
No attempt is made to maintain internal linkage between program label and phys- 
ical sequence of instructions if this would interfere with the most logical presenta- 
tion of the program. Every attempt has been made to create logical linkages for 
major objectives and to display the program on one page or facing pages. 

The on-page connector symbol is self-evident (refer to Figure 3-22); the off-page 
connector symbol usage is simplified, because these symbols refer only to another 
page of the same figure number. Reference (linkage) to other programs is made 
using a terminal flowcharting symbol containing the entry label for that program. 

2. Conventional— Shows the sequence of major internal objectives of complex sub- 
routines, IOCS routines, interfaces, error-logging overlays, etc. (an example is 
Figure 3-9). A predefined process block indicates a subroutine which is flow- 
charted elsewhere in this publication. The subroutine label is in the upper left 
corner; the flowchart figure number for that subroutine is in the upper right 
corner. On-page connectors, off-page connectors, and terminal symbols are used 
the same as on the function-level flowcharts. 



SYMBOLIC LABEL (PROGRAM COMPONENT NAME) 

A symbolic label (usually six characters) is used to identify each major System/ 3 BASIC 
program component. This label appears in the heading of each page in the assembly 
listing and on the microfiche. All labels within the same source module are prefixed by 
a character that identifies the type of source module. Section 4 contains a listing and a 
description of System/3 BASIC components. 
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Section 2. Method of Operation 



This section describes the functional flow of the program logic and data for System/3 
BASIC. Illustrations trace the functional flow from input, through processing stages, to 
output, emphasizing the use of primary data areas. 



LOGICAL DIVISION OF SYSTEM PROGRAMS AND COMPONENTS 

In this manual, System/3 BASIC is logically divided into six major groups of programs: 

• Control 

• Keyword 

• Utility 

• Compiler/loader 

• Interpreter 

• Desk calculator 

Figure 2-1 illustrates the primary relationships between these programs and the disk data 
files. This figure also illustrates primary I/O flow from system input to system output. 

Control 

This group of programs perform the following primary functions: 

• System initialization, or initial program load (IPL). 

• Linkage and services, for transient programs, that must be core-resident (system 
nucleus) at all times. 

• Acceptance and syntax checking of all system input while in conversational mode 
of operation. 

• Maintenance on the work file (#GUFUD). 

• Analysis of system commands and initiation of their execution (#ECMAN). 

• Display of messages for errors and for operator communications. 

• Program interruptions. 

Keyword and Utility 

• Each system command is associated with a transient program that performs or 
initiates the particular function described by the keyword or utility command. 

• The keyword and utility programs are invoked by the command analyzer when the 
corresponding keyword (ALLOCATE, CHANGE, etc.) is entered. 

Compiler/Loader 

• Compilation of a BASIC language program is invoked by certain system commands. 

• The source program in the work file is compiled in a single pass over the source 
statements. 

Method of Operation 2-1 
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• The loader resolves addressing and allocations in virtual memory (disk) that cannot 
be resolved during the single compiler pass. 

• Output from the compilation is a pseudo-machine-language program (object program) 
in virtual memory. 

Interpreter 

• This program produces the output from a BASIC language program by executing the 
pseudo-machine-language program in virtual memory. 

• Each pseudo-machine-code (PMC) instruction within the pseudo-machine-language 
program is analyzed, one at a time. 

• Subroutines perform the function specified by each PMC instruction. 

• These subroutines reside in both core and virtual memory. 

• A paging subroutine (part of the interpreter) performs a linkage function to load 
subroutines, PMC instructions, and data into core from virtual memory. 

Desk Calculator (DCALC) 

• This program accepts DCALC input from the keyboard, and then pages (transfers in 
sections) appropriate subroutines into core from virtual memory to execute the func- 
tions for the user. 

• This program uses the same concepts as that of the interpreter. 

• Error messages, operator communications, and I/O operations are provided by 
DCALC. 



DISK ORGANIZATION 

The first four cylinders on every disk volume are reserved for the volume information 
cylinder (cylinder 0) and alternate data tracks (cylinders 1, 2, and 3). The volume infor- 
mation cylinder contains the volume label and volume table of contents, used for volume 
identification, and other pertinent information about the volume (refer to Figures 5-9 
and 5-10). A disk volume used for System/3 BASIC is optionally formatted with these 
primary disk areas (system files): 

• System work file (system work area) 

• System program file 

• System library file (file library) 

• Help text file 

• PTF file (program temporary fix) 

Refer to Figure 2-2 for an example of system file placement on disk and Figure 5-2 for 
the disk volume format. For details on file organization and data formats, refer to the 
Table of Contents or the Index for the particular subject you are interested in. 

Volume Label 

This reserved sector provides volume identification information, disk addresses, and size 
of System/3 BASIC system files on the volume. The sector is used by System/ 3 BASIC 
programs to locate these system files. The volume label also points to the location of 
the volume table of contents (VTOC). Refer to Figure 5-9 for the format of the volume 
label. 
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Volume Table of Contents 

The VTOC contains labels for all system files on the volume. Each label contains the 
name of the file, and disk extent information necessary to protect the area occupied by 
the file from other programming systems. Protection is handled by the track usage mask 
in the volume label. The VTOC is maintained by System/3 BASIC but it is not used to 
locate System/3 BASIC system files. Refer to Figure 5-10 for the format of the volume 
table of contents. 

Note: Do not confuse system files with user files in the file library. 
System Work File 

This system file, also referred to as the system work area, is allocated on cylinders 4 
through 9 on both volumes residing on drive 1. The file is accessed by system programs 
as a four-track logical file. When accessing the file, relative disk addresses are computed 
on the basis of 96 sectors per cylinder instead of 48. The system work area contains 
these four areas: 

1. Selected system programs (cylinder 4)-Selected system programs are copied here 
from the system program file to reduce seek time. 

2. Work file (cylinders 5 and 6)— This area is used for working with user program or 
data files. 
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3. Virtual memory (cylinders 7 and 8, and more than half of cylinder 9)-This area 
has a data length of 64k (256 sectors). 

4. Temporary disk work area (last 32 sectors of cylinder 9)— This area provides 
programs with disk working storage. 

The following selected system programs are copied to cylinder 4: 

#ECMAN-Command analyzer 
#GUFUD-Work file update/crusher program 
#SFSYN-BASIC statement syntax checker 
#SDSYN— Data syntax checker 
#ERRPG-Error message program 

#SFLOA } Execution " time disk overlays 
#BOVLY— Statement processor overlays 

Refer to "System Work Area Equates (@WKAEQ)" in the program listings for disk 
addresses and sector counts associated with the system work file. 

System Program File 

This system file contains all system programs and related components, except those 
residing on the volume information cylinder (cylinder 0). All of the programs and com- 
ponents in this file are at fixed locations, relative to the first sector allocated for the file. 
None can be deleted from, or relocated in, the file. The first component in this file is a 
directory containing the relative disk address, sector count, and core load address of all 
components in the file, but this directory is not used by the system to locate the com- 
ponents. It is used for finding addresses of components when PTF commands are issued. 
(See Figure 5-29 for the format of a directory entry.) Relative disk addresses, sector 
counts and core load addresses of system components are assembled in the programs when 
and where they are needed. The starting disk address of this file is located in the volume 
label (see Figure 5-9). 



System Library File 

This system file, also referred to as the file library, contains space for storing user pro- 
grams and data (see Figure 5-11). 

Each grouping of user program statements or data statements stored in this library is 
called a user file and has an associated filename. The user files are accessed by the use of 
filename directories (Figure 5-14) and a single password directory (Figure 5-13). The 
password directory contains one password for each filename directory in the library. 

Two reserved passwords are always present in the password directory. These reserved 
passwords are * (one-star) and ** (two-star). The user of the system will refer to these as 
one-star library (or pooled) and two-star library. These two passwords point to a direc- 
tory of filenames as do the other passwords (see Figures 5-11 and 5-13). 

The system library file also contains a null directory (Figure 5-12). This directory has 
entries pointing to all unused areas in the file. When the file is packed, there is only one 
entry, pointing to one null area at the end of the file. The null directory occupies the 
first sector allocated to the system library file. The starting disk address and size of this 
file are located in the volume label. Refer to Figure 2-3 for the organization of the system 
library file and its directories. 

Refer to "Record Format" for the format of user program-generated and keyboard- 
generated files in the system library file. Program-generated files are considered as one 
record without a line number. This single record is written into sequential disk sectors 
as it is created by the program. No file index table (FIT) is generated for program- 
generated files. 
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Note: Refer to Figures 5-1 1 through 5-1 4 for directory formats. 



Figure 2-3. Organization of System Library File, Example 
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Help Text File 

This system file (refer to Figures 5-21 and 5-22) contains all of the help text accessed by 
the HELP keyword program. This file is organized with an index starting in the first 
allocated sector. The general organization of this file is the same as that of the work file. 
The starting disk address of this file is located in the volume label (Figure 5-9). Refer to 
program listings #T1HEL, #T2HEL, etc., for the content of the help text file. 



PTF File 

This system file, if present, contains program temporary fixes to be applied to other sys- 
tem files as they are shipped from the IBM Program Information Department 
(PID). These PTF's may be applied by an IBM customer engineer. The starting disk 
address and size of this file are located in the volume label (Figure 5-9). 

Work File 

This is the work file referred to during system operations. It holds the current program 
or data file being entered or operated upon by the operator. The work file is logically 
addressed forward. All of cylinders 5 and 6, in the system work area, are allocated to the 
work file. 

Both program-generated files and keyboard-generated data files have the same internal 
organization. A file consists of two parts: 

1. File index table (FIT)-Used to randomly access the data records using the line 
number. This table can be from 1 to 3 sectors in length depending on the size of 
the data portion of the work file (see Figure 5-16). The first three sectors of the 
work file are always reserved for FIT. 
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2. Data area— Contains the data records (lines) in logical order with respect to line 
number. This portion of the file can be from 1 to 189 sectors in length. 

All sectors of the work file are contiguous, including the index. The I/O information 
record (file directory 1, Figure 5-17) resides on cylinder 4, for a program file occupying 
the work file (see Figure 5-15), but is placed between the FIT and the data area if the 
file is copied (saved) to the file library. 

All of the user program and keyboard-generated data files in the system library file 
were at one time saved from the work file. The format of user files in that library is the 
same as the format of the work file. 

Note: The data portion of the file is organized into disk blocks (sectors). Record or line 
refers to a logical data segment as opposed to a physical disk block. 



VIRTUAL-MEMORY CONCEPT 

Virtual memory (VM) is a concept that uses disk to logically increase the size of the 
object program beyond the core capacity of the system. The VM concept also allows 
the core capacity of the system to be increased with no effect on the object program 
except for increased throughput of the system. The disk area occupied by virtual 
memory is cylinders 7 and 8, and more than half of cylinder 9 in the system work area. 
This area is a logical four-track file with a data length of 64k (256 sectors). 

Sections of the object program are brought into available core from VM on an as- 
needed basis. These sections are referred to as pages. Each page is 256 bytes in length. 
The available core (core paging area) is divided into pages (Figure 2-4) which contain 
machine executable codes or data, as required for the execution of the object program. 
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Figure 2-4. Virtual Memory Concept 

The larger the core storage (core paging area), the less disk I/O activity occurs and the 
faster the object program is executed. Speed depends upon the actual size and the pre- 
cision of the object program in relation to the size of the core paging area. Core config- 
uration and relative paging area are discussed in detail in "Expanded Core Utilization" 
(Section 3). Detailed specifications of virtual memory and references to core paging are 
given in Section 7. 
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PSEUDO MACHINE LANGUAGE CONCEPT (PSEUDO OBJECT PROGRAM) 



A pseudo machine language (object program) concept speeds the compilation time of a 
user program. It reduces the quantity of instruction output by the compiler and elimi- 
nates the necessity for an assembly pass or passes over the output instructions. 

The pseudo instructions that make up the pseudo machine language (object program) 
invoke the execution of preassembled machine-language execution subroutines to per- 
form the functions indicated by the pseudo instructions. This concept (Figure 2-5) is 
similar to the emulation of an instruction set foreign to the object machine, or the 
execution of machine instructions by hardware microprogramming. 
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Figure 2-5. Pseudo Machine Language Concept 
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The pseudo machine language for System/3 BASIC contains pseudo instructions 
(Figure 3-169) to perform (1) arithmetic operations such as exponentiation, square 
root, trigonometric functions, logarithms, etc.; (2) array processing operations such as 
matrix multiply, inversion, transposition, determinant, etc.; and (3) I/O operations such 
as GET, PUT, PRINT, etc. All arithmetic operations are performed in either standard or 
long precision floating point arithmetic. Character (EBCDIC) data format is also proc- 
essed by particular pseudo instructions. 

The preassembled machine-language execution subroutines and their control program 
are referred to in this manual as the interpreter. The execution subroutines that are 
used least often are located in virtual memory (Figure 2-6). The pseudo machine lan- 
guage object program is generated by the compiler (and loader) and executed by the 
interpreter (Figure 2-5). Pseudo machine instructions are referred to in some areas of 
this manual as pseudo machine code (PMC) (refer to Figure 3-169). Detailed specifica- 
tions of the object program are given in Section 7. 
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Figure 2-6. PMC and VM Concepts Combined 
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Data records in either the work file or the file library are variable-length records corres- 
ponding to one keyboard line. A record consists of one or more segments. A segment is 
the portion of a record contained in one disk block. Records are packed contiguously in 
the file and span disk block boundaries. A record spanning two disk blocks consists of 
two segments. Every segment is preceded by a segment descriptor field (SDF). Only the 
first segment contains the line number and statement type code. A program-generated 
data file has no line number or segment structure. 

Refer to Figure 5-15 for the structure of a sample BASIC program file. A data file 
does not contain a file directory 1 record. Note that relative data blocks 04 and 05 are 
not in physical sequence. The line numbers (LINE) in the file index table entries are in 
ascending line number order allowing the relative data blocks (DB) to be referenced in 
logical order. 

FILE DIRECTORY 1 (I/O INFORMATION RECORD) 

This directory contains information, specified by ALLOCATE system commands, 
defining the data files referenced in the GET and PUT statements of a BASIC language 
program. This directory is associated only with a program file. For a program file in the 
work file, this directory resides on cylinder 4. When a program file is saved in the file 
library, this directory is placed between the FIT and the data blocks of the program file. 
Refer to Figure 5-17 for the file directory 1 format. 

The first 8 entries of this directory occupy the first page in virtual memory during 
execution of the BASIC program. A maximum of 4 additional entries can be placed in 
virtual memory, by the program #LOADR, at a variable location. 
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Section 3. Program Organization 

') 

This section divides System/3 BASIC into these major groups of program components: 



• 


Control programs 


• 


Keyword programs 


• 


Common subroutines 


• 


Utility programs 




Maintenance utilities 


• 


Compiler 


• 


Loader 


• 


Interpreter 


• 


Desk calculator 



For details on source module labeling conventions and system equates, refer to Section 4. 

CONTROL PROGRAMS 

System/3 BASIC control programs are defined under the following headings: 



• 


System initialization— IPL 


• 


System nucleus 


• 


Error message program-#ERRPG 


• 


Program interruption processor-#EXMSG 


• 


Work file update/crusher-#GUFUD 


• 


Command analyzer-#ECMAN 


• 


Command key processor-#EFKEY 


• 


BASIC statement syntax checker-#SFSYN 


• 


Data syntax checker-#SDSYN 




Procedure line checker— #SPSYN 


• 


Conversational I/O routines-#DPRIN, DPRINT, DEPRES 


1. 


Procedure file line processor-#GRAPR 


• 


Card reader I/O routine-#DREAD 


• 


Maintenance program load trace-#ZTRAC 



System Initialization-IPL (Figure 3-1) 

IPL is accomplished by three program components: 

• Bootstrap loader-#MLOAD 

• Interface routine; part of the system nucleus at IPL time— MOPPET 

• Nucleus initialization program residing in the system program file-#MIPPE 

Program Organization 3-1 
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/PL Bootstrap L oader— #ML OA D (Figure 3-1) 

• This program is read from cylinder 0, head 0, sector 0 of disk when the program load 
switch is operated. 

• #MLOAD first relocates itself to high core and then reads the system nucleus into low 
core (X'0000') from cylinder 0, head 1, sector 0. 

• #MLOAD places a one-byte indicator at label $IPLDV, indicating the disk IPL'd 
(XW for Rl and X'01' for Fl). 

• If no system program file exists on the IPL'd volume, a hard halt occurs. 
/PL Interface-MOPPET (Figure 3-1) 

• This routine is loaded by #MLOAD as part of the system nucleus. 

• The routine reads the volume label sector from the IPL'd disk, calculates the system 
program file address, and loads the main nucleus initialization program, #MIPPE. 

• MOPPET resides immediately following the nucleus at label $ENDNU. 
Nuc/eus initialization Program— #M/PPE (Figure 3-1) 

• This program loads #DPRIN— which consists of the matrix printer I/O control 
routine, or MP IOCR (DPRINT), and the keyboard IOCR (DEPRES)— at core 
address X'0700\ The keyboard input line buffer overlays MOPPET (IPL interface). 

• System configuration is checked for validity by calling machine configuration 
(MCNFIG), This subroutine tests all devices specified in the configuration- record 
for presence on the system. 

• The core expansion factor is set in the nucleus communications area. 

• The cathode-ray tube (CRT) IOCR is loaded into high core by the MCNFIG sub- 
routine if the CRT is present in the configuration, 

• The correct keyboard table is loaded by MCNFIG into the three keyboard IOCR's. 

• Margin widths for the matrix printer are set to the hardware specifications by 
MCNFIG. 

• The volume labels are read from all mounted disk volumes. IPL is terminated with 
hard halt 2345 if Rl does not have a standard System/3 volume label. Refer to 
"Halt 2345" in Section 6. All volumes other than Rl are assumed to require 
initialization if they do not have a standard volume label. 

• The volume-ID table, which is located in the nucleus communications area, is 
built for all mounted volumes. 

• The work area and bad-line buffer are cleared if they are present, 

• Output is switched to the CRT if the matrix printer fails while the operator is 
requesting the configure option. 

• All scratch file entries left in the VTOC by co-resident disk system management 
programs are deleted. 
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#MLOAD 



READ SYSTEM NUCLEUS AND I/O ROUTINES 
INTO LOW CORE 



1. Hardware reads #MLOAD from cylinder 0, head 0, 
sector 0, into the first 256 bytes of core and 
branches to address X'0000'. 

2. #MLOAD relocates itself to X'l F00' and branches 
to X'IFOO'. 

3. Read system nucleus into core at X'0000'. A disk 
error causes a soft halt. 

4. Branch to MOPPET, the IPL interface resident in 
the nucleus. 



MOPPET 



INTERFACE TO MAIN IPL PROGRAM 



1. Set console interruption address to $CIENT routine 
(Figure 3-10). 

2. Read volume lable from IPL'd disk using $DISKN 
(Figure 3-7). 

3. Calculate disk address of system program file. 

4. Exit to $R LOAD to load #MIPPE at X'OCOO' 
from the system program file. 



f # 



#MIPPE 
I Main IPL Program 



#MIPPE 



SYSTEM CONFIGURATION 



1. Issue carriage return to initialize MP to the left 
margin. 

2. Read #DPRIN (DPRINT and DEPRES) into core 
atX'0700'. 

3. Configure system. Call $DISKN (Figure 3-7) to 
read configuration record from F1 , and call 
$SPRNT (Figure 3-9) to print messages to operator. 

4. Call DEPRES (Figure 3-30) to enable keyboard input. 

5. Wait for CONFIGURE command or program start 
key. 

6. Test configuration for validity and load #DSPLY 
(CRT IOCR) to high core if CRT is present. 



READ ALL VOLUME LABELS 



1. Call $DISKN (Figure 3-7) to read in all the volume 
labels of ail mounted disks. Terminate IPL with a hard 
halt if the volume label on R1 does not have a valid 
label identifier (C'VOL' or X'ABCDEF'). 

2. Move the volume label and library file addresses to 
the nucleus communications area. 

3. Check that the system work area is present on F1 
and R1. 





#GUFUD 




PROCESS DATE 



1. Ask for date using $SPRNT (Figure 3-9). 

2. Call DEPRES (Figure 3-30) to enable keyboard 
input. • 

3. Modify instruction at X'0000' for a branch to 
$PAUSD (FE aid). 

4. Move user supplied date to nucleus communica- 
tions area. 

5. Set disk addresses for #GUFUD and #ERRPG in 
the nucleus. 




Yes 



#ERRPG 
Figure 3-17 
Via $CAERK 



Set 

Conversational 
Mode Indicator 
In Nucleus 
Communications d 
Area. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-1. System Initialization (IPL) Flowchart 
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One of the following modes is entered at this point: 



• Conversational mode (#GUFUD, work file update/crusher program) is entered, by 
#MIPPE, if the system work area is present on both volumes mounted on drive 1 
and is set to the current release level. #GUFUD may be entered via the error pro- 
gram if an error message is printed (F2 not initialized, etc.). 

i 

• Utility mode (#ERRPG, error program) is entered if the system work area is not present. 
System Nucleus 

The system nucleus is the core-resident portion of System/3 BASIC. It contains a system 
communication area, the physical disk IOCR, and various interface routines for other 
system functions. Figure 3-2, a core map of the system nucleus, shows the components 
and their functions. 



DKDISK ($DISKN) 
(physical disk IOCR) 

NERLOG ($ERLOG) 
(error logging call section) 

NUCLES 

(system communication area) 

NSPRNT ($SPRNT) 

(interface to system printer IOCR) 

NCAERK ($CAERK) 
(interface to error program) 

NQUIRY ($CIENT, $UNMSK) 
(inquiry request routine) 

NABORT ($CAIPL, $CARPL, $CABLD) 
(abort current operation routine) 

NPAUSE ($PAUSD, $RSTR) 
(save/restore core) 

NBLOAD ($BLOAD 7 $RLOAD, $LOADR) 
(system loader) 

Patch Area 
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Figure 3-2. System Nucleus Core Map 

Resident Disk Physicai IOCS-DKDISK, $DISKN (Figure 3-7) 

• DKDISK is divided into two main sections: 

1 . Call— for normal I/O execution. 

2. ERP— error recovery procedure. 

• DKDISK is core resident in the system nucleus and performs the physical disk 
operations of read, write, verify, and seek for both drives. 

• A special wait function is provided which allows a calling program to be delayed 
until the last logical read or write operation for either drive is complete. 

• The calling sequence for DKDISK is: 

B $DISKN 

DC AL2(DPL) DPL is the address of the disk parameter list (Figure 3-3). 

• No checks are made for validity of the DPL parameters. The calling program must 
ensure that the drive, disk address, etc., are valid. 
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• Hardware errors are automatically handled by error recovery procedures in the disk 
I/O control system (IOCS) (Figure 3-4). No error returns are made to the calling 
program. 



Disk Parameter List (6 bytes) 


Function 


Disk Address 


Sector 
Count 


Data Area Address 


0 


1 2 


3 


4 ; 5 



X'00'- Seek ■ 
X'Or- Read — 
X'02'- Write- 
X'FF'- Wait — I 



I Cylinder Number 



The table below shows the 
head, sector, drive, and 
volume that are selected 
for each value that can be 
contained in byte 2. 



Byte 2 


0 


1 


2 


3 


4 


5 


6 


7 



Head Number 

Sector Number 

Drive ID (off = 1, on = 2) - 
Volume ID (off = removable, on = fixed) — 1 







Head 0 






Head 1 




Sector 




































R1 


F1 


R2 


F2 


R1 


F1 


R2 


F2 


0 


00 


01 


02 


03 


80 


81 


82 


83 


1 


04 


05 


06 


07 


84 


85 


86 


87 


2 


08 


09 


OA 


0B 


88 


89 


8A 


8B 


3 


oc 


0D 


0E 


OF 


8C 


8D 


8E 


8F 


4 


10 


11 


12 


13 


90 


91 


92 


93 


5 


14 


15 


16 


17 


94 


95 


96 


97 


6 


18 


19 


1A 


1B 


98 


99 


9A 


9B 


7 


1C 


1D 


1E 


IF 


9C 


9D 


9E 


9F 


8 


20 


21 


22 


23 


AO 


A1 


A2 


A3 


9 


24 


25 


26 


27 


A4 


A5 


A6 


A7 


10 


28 
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38 
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BB 
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BC 
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16 


40 


41 


42 


43 


CO 


C1 


C2 


C3 


17 


44 


45 


46 


47 


C4 
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CC 
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CE 
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52 
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56 
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D6 


D7 
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D9 


DA 


DB 
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5C 


5D 


5E 


5F 


DC 


DD 


DE 
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Notes: 

1 . Bytes 3-5 are not 
used for a seek 
fu nction. 

2. Bytes 1-5 are not 
used for a wait 
function. 
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Figure 3-3. Disk Parameter List (DPL) 

Physical disk addresses are required, but translation of defective track addresses to the 
assigned alternate track address is performed automatically by the routine. Any initial 
seek required to access the specified cylinder is automatically performed by the IOCS. 
If a single logical read or write operation crosses a cylinder boundary, the IOCS auto- 
matically performs the seek to the second cylinder and completes the operation when 
the next call to the IOCS is made. Control remains in the IOCS during the succeeding 
cylinder operations. A read or write operation automatically crosses track boundaries 
on one cylinder without subsequent IOCS calls. 
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Error 


Sense 


Recov/prv Prnrprinrp i 


Byte 


Bit 


Unsafe 


2 


0 


Hard halt; no recovery attempted. 


Equipment check 


0 


3 


Retry operation once; then hard halt. 


Intervention required 


0 


1 


Hangs on retry SIO until drive becomes ready. 


Overrun 


1 


5 


Perform a read-ID to determine if: 


No record found 
Track condition check 
Missing address marker 


0 
0 
0 


5 
6 
2 


• Seeked to correct operative track-retry as read, 
verify, or write error (below). 


Data check 


0 


4 


• Seeked to wrong track-recalibrate and retry 
operation. 

• Accessing a track flagged defective— seek to 
alternate and retry operation. 

• Accessing sectors beyond the end of an alternate 
track— seek to next sequential primary track and 
continue operation. 

Retry as read, verify, or write error. 

• Write error-retry write seven more times. 

• Verify error— rewrite and verify seven more times. 

• Read error— 1 6 rereads performed with each seek 
and 16 seeks are tried (256 read errors before hard 
halt). 


Seek check 


0 


7 


Recalibrate and retry seek 15 more times— if seek is 
successful, retry as read or write error (above). 


End of cylinder 


1 


2 


Seek to next sequential cylinder and continue operation. 


Unit check, but none 






Hard halt; no recovery attempted. 


of above 
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Figure 3-4. Error Recovery Procedure (DKDISK) 



For example, consider a call specifying a read operation of 30 sectors starting at sector 
22, track 0 of cylinder 43, when cylinder 10 is currently accessed. The IOCS initiates a 
seek to cylinder 43, queues the read operation, and returns control to the calling pro- 
gram. The read of sectors 22 and 23 (0-23 on cylinder 43) is automatically performed 
without returning control to the IOCS. A subsequent IOCS call allows the IOCS to per- 
form the seek and read of the second cylinder. 

At the termination of a write function, a verify is automatically performed by 
DKDISK. 

Error Recovery Procedure (ERP) Section: An ERP section is contained within DKDISK. 
If the operation is unsuccessful after a specified number of retries, the routine comes to 
a hard halt and an error code is displayed. The system can be restarted only by an IPL. 
Figure 3-4 shows the error recovery procedures in DKDISK, Figure 3-5 shows an example 
of a switch to an alternate track in DKDISK, and Figure 3-6 shows the disk control field 
(DCF) format. 
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Assigned Alternate Track 



ID 


Sector 0 


ID 


Sector 1 I 


01 


OA | 00 


Data 


01 | OA | 04 


Data j 



3_ 



Flag Byte Definition 




Operative Primary Track 



f 


ID 


Sector 22 


ID 


Sector 23 J 




00 


09 


D8 


Data 


00 | 09 l DC 


Data ) 



Defective Primary Track 



ID 


Sector 0 


ID 


Sector 1 ( 


Garbage 


Garbage 


02 


01 


00 


Garbage } 



Flag Byte Definition 



Operative Primary Track 



ID 


Sector 0 


ID 


Sector 1 y 


00 


OA 


80 


Data 


00 


OA 


84 


Data ( 



Flag Byte Definition 



Events 


Disk 
Address 


Sector 


Comment 


C 


H 


S 


Count 


-Seek to, and read, requested track. 
Unit check, end of cylinder. 


09 


1 


22 


28 


Transfer 2 sectors to core. 
ERP seeks next cylinder. 


Seek to, and read, next track. 
Unit check, no record found. 
Read ID and check flag. 


10 
10 


0 

o ! 


0 


26 


DKDISK does not know track is defective, 

ID of sector 0 is invalid. 

Alternate assigned by disk initialize. 


- Seek to, and read, alternate track. 


01 


0 


0 


24 


Transfer 24 sectors to core. 


- Seek to, and read, next primary 
track. Operation complete. 


10 


1 


0 


2 


Transfer last 2 sectors to core. 



©- 



Data Tracks 

I 

or 



Primary 
(cylinders 0,4-202) 



Alternate 
(cylinders 1-3) 



r 



Operative 
X'00' 



Defective 
X'02' 



-or>- 



Operative 
X'OT 



Defective 
X'03' 
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Figure 3-5. Switch to Alternate Track (DKDISK), Example 
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Sector 


rlcdQ u 

(byte 3 
value) 


Head 1 
(byte 2 
value) 


0 


00 


80 


1 


04 


84 


2 


08 


88 


3 


OC 


8C 


4 


i u 


on 

yu 


5 


14 


94 


6 


1 8 


98 


7 


1 C 


9C 


8 


20 


AO 


9 


24 


A4 


10 


28 


A8 


1 1 


2C 


AC 


1 2 


30 


B0 


13 


34 


B4 


14 


38 


B8 


1 5 


3C 


BC 


16 


40 


CO 


17 


44 


C4 


18 


48 


C8 


19 


4C 


CC 


20 


50 


DO 


21 


54 


D4 


22 


58 


D8 


23 


5C 


DC 



Disk Control Field (4 bytes) 



O-Flags 



1— Cylinder 



2-Head and Sector 



3— Number of Sectors— 1 



0 1 2 3 4 5 6 7 



Defective Track 
Alternate Track 



3 



0 1 2 3 4 5 6 7 



Cylinder Number 
The table at the left shows 
the head and sector that 
are selected for each value 
that can be contained in 
byte 2. 



{Head Number • 
Sector Number . 



1 2 3 4 5 



6 7 0 1 



2 3 4 5 6 7 



Forward Seek — 
(6 and 7 must be 
zero if not a seek-op) 

Number of Sectors to be • 
Transferred Minus 1 
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Figure 3-6. Disk Control Field (DCF) 
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3-8 Figure 3-7. Resident Physical Disk IOCS (DKDISK, $DISKN) Flowchart 
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I/O Error Logging Routine— NER LOG, $ERLOG (Figure 3-9) 

• NERLOG is used for recording I/O errors in the outboard record (OBR) and 
updating the statistical data record (SDR). Refer to Figure 3-8. 

• The error history log entry ($HISTE) in the nucleus communications region must 
be set up by the calling IOCR. Refer to Figure 5-1. 

• After setting the proper entry at SHISTE, the calling sequence to store the entry 
to disk is: 

B $ERLOG Branch if disk error. 

B $DISKN Branch if other than disk error. 

DC AL2($WAITF) $WAITF is the address of a disk parameter list containing a wait 
function code (Figure 3-3). 

• If the I/O error occurred while on the interruption level, $ERPND is set and the 
error is logged upon the next entry to DKDISK. 

• NERLOG contains two sections: 

1 . Call section-This is core resident within the system nucleus and used to 
modify DKDISK, save five sectors of core, and load the overlay section 
into this saved area. 

2. Overlay section-This is brought into core at the saved area to update the 
OBR and SDR, and generate a hard halt if a system unrecoverable I/O 
error is indicated. 



X'0700' 



X'OCOO' 



Disk IOCR 



NERLOG Call Section 



Remainder of Nucleus 



(5 sectors) 
\ 



Program Area 



9>: 



NERLOG Overlay 



Error Logging 
Work Area 
(cylinder 0, head 0, 
sectors 4 to 8 
on R1) 




Restored Core (5 sectors) 



Figure 3-8. NERLOG Core Map 
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System Communication Area-NUCLES (see Figure 5-1) 

• NUCLES provides for communication between system programs. 

• It contains indicators, work areas, and core and disk addresses used by the entire 
system (refer to @FXDEQ in system equates). 
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Interface to System Printer IOCR-NSPRNT, $SPRNT (Figure 3-9) 

• NSPRNT is used to call the device designated as the system printer (CRT or matrix 
printer). 

• NSPRNT decides which device is to be used and branches to the corresponding 
IOCR. 

• The calling sequence to print a line on the system printer is: 

B $SPRNT 

DC AL2IPPL) PPL is the address of the print parameter list {Figure 5-23). 

The source module consists of one load IAR instruction located in the nucleus. This 
instruction loads the address of the IOCR assigned as system printer from the $PRDEV 
field in the system communication area. This address is that of DSPLYN for CRT only, 
and CRT with matrix printer; or DPRINT for matrix printer. A branch to SSPRNT loads 
the IAR, effectively causing a branch to the IOCR. The calling sequence passes the 
address of the print parameter list (PPL). This list is detailed in Figure 5-23. 

Error Program Interface-NCAERK, $CAERK (Figure 3-9) 

• NCAERK is an interface to the error message program (#ERRPG). 

• The error message program is loaded to core and executed. 

• No control information is transferred to the routine. 
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NOP 
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branch. 
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error 
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$DISKN 



3-7 
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where overlay 
will go. 



$B LOAD 



3-14 



Load and 
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NERLOG 
overlay. 




Begin 

NERLOG 

overlay. 



$DISKN 


3-7 




Start core 
restore. 




Return 
to core 
resident 
section. 


NER100 




$DISKN 


3-7 




Walt for 




core restore 




complete. 





Update 
individual 
volume 
statistics 
(head 0, 
sector 3), 



Restore 
DKDISK 
$E RLOG 
branch. 



Return to 

Calling 

Program 




Write history 
entry from 
COMREG Into 
next available 
OBR entry 
on F1. 





^ $CAERK ^ 



NCAERK 



$BLOAD 



3-14 



Load error 
program at 

x'ocoo'. 



C#ERRPG ] 
Figure 3-14 J 
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Figure 3-9. Printer and Error Program Interface ($ERLOG, $SPRNT, $CAERK) Flowchart 
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Inquiry Request Routine-NQUIR Y, $CIENT, $UNMSK (Figure 3- 10) 

• This routine aborts the current operation (if the inquiry request is unmasked) and 
reloads the work file update/crusher program (#GUFUD). 

• An entry point ($UNMSK) is provided for unmasking and aborting if an interruption 
occurred while masked. 

• If the function is aborted, the program interrupted indicator ($INRPT) is set. 

• Entry points: 

1 . $CIENT— Entry for interruption processing (entered only when on interruption 
level). 

2. $UNMSK— Entry to unmask inquiry request (IR). To mask IR, it is necessary 
to move X'80' (equated to @NOP) to location $CIMSK within the IR routine. 

• Exits: 

1 . IR unmasked-Exit is to SCAIPL. 

2. IR masked— Condition is set for suspended IR and return is made to the inter- 
rupted program. 

3. $UNMSK finds no suspended IR— Return is to the calling program. 

4. Suspended IR-Exit is to $CAIPL. 

• No error procedures are provided. 

Abort Current Operation Routine-NABORT, $CAIPL, $CARPL, $CABLD 
(Figure 3-10) 

• This routine aborts the current operation and/or reloads the work file update/crusher 
program (#GUFUD). 

• If entry occurred during execution (via IR), the program interruption processor pro- 
gram (#EXMSG) is loaded instead of #GUFUD. 

• Entry points: 

1 . $CAIPL-Entry sets indicators for keyboard entry and no suspended IR and 
loads #GUFUD or #EXMSG. 

2. SCARPL— Entry sets indicator for no suspended IR and loads #GUFUD or 
#EXMSG. 

3. SCAB LD— Entry loads #GUFUD only ; no indicators are modified. 

Entry to $CAIPL first resets the input from the keyboard and turns off the no4ist indi- 
cator. SCAIPL then falls to $CARPL which enables IR. The execution indicator is then 
tested, and if on (indicating execution in process), #EXMSG is loaded and executed via 
$PAUSD. If execution is not in process, SCABLD is branched to, which calls SBLOAD 
to load and execute #GUFUD. 
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c in > 
execution 

[Yes 




Clear line 

printer 

buffer 














$CABLD 





Yes 


$PAUSD 


3-12 


Save problem 
core in disk 
work file 







c 



No 














NCABLD 






$BLOAD 


3-14 




Blast 


load 




#GUFUD 




at X'OCOO' 



#EXMSG 
Figure 3-18 




#GUFUD 
Figure 3-22 
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Figure 3-10. Abort (NABORT, $CAIPL, $CARPL, $CABLD) and Inquiry Request 
(INQUIRY, $CIENT, $UNMSK) Flowchart 
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Save/Restore Core-NPAUSE, $PAUSD, $RSTR (Figure 3- 12) 

• NPAUSE saves the contents of core in a disk save area when a program is put in an 
execution pause condition or the maintenance utility monitor (Figure 3-99) is called. 
The save area length is 58 sectors, starting at relative disk address X'0600' in the system 
program file. This area is labeled ##CORE. 

• The core area saved is from the end of the nucleus (Figure 3-11) to the end of core 
or to the start of the CRT IOCS ($DSPLY). 

• Upon reentry at the location $RSTR, the saved core is restored from the disk save 
area, and the program which was paused is ready to be continued. 

• Entry points: 

1. SPAUSD— Normal entry to save core. 

2. $RSTR-Entry to restore core. 
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Figure 3-11. Save/Restore Core (NPAUSE) Core Map 
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$RSTR 



$PAUSD 
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Modify DPL 
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to ##CORE. 



CS0020 



$DISKN 
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$RLOAD 


3-14 




Load 






program 




Interruption 




processor. 



#EXMSG 
Figure 3-18 
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Figure 3-12. Save/Restore Core (NPAUSE, $RSTR, $PAUSD) Flowchart 
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System Loader-NBLOAD, $BLOAD, $RLOAD, $L OADR (Figure 3-14) 

• NBLOAD is used for loading and executing a requested program (Figure 3-13). 

• Three types of calling sequences are available to the calling program: 

Calling sequence to load and execute a fixed-disk-address program: 
B $BLOAD 

DC AL2(DPL) DPL is the address of the disk parameter list used to load the 
program {Figure 3-3). 

Calling sequence to load and execute a relocatable-disk-address program: 

B $RLOAD 

DC AL2IDPL) DPL is the address of the disk parameter list used to load the 
program (Figure 3-3). 

Calling sequence to load a relocatable-disk-address program and return to the calling 
program: 

B $LOADR 

DC AL2IDPL) DPL is the address of the disk parameter list used to load the 

program (Figure 3-3). 



• The disk address specification in the DPL, when using SRLOAD, is the base disk 
address for the program. It is added to the starting address of the system program 
file to find programs that are within the file at fixed displacements. 

• No check is made to verify that the DPL address is correct. 



Nucleus 



NBLOAD 



I/O Routines 



Calling Program 



Load address passed in calling 
i sequence. Unpredictable results occur 
if this address is below X'0600'. 



ZTRAC 

(FE program load/trace) 



Requested Program 
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Figure 3-13. System Loader (NBLOAD) Core Map 
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Figure 3-14. System Loader (NBLOAD, $BLOAD, $RLOAD, $LOADR) Flowchart 
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Error Message Program-#ERRPG (Figure 3-17) 

• #ERRPG prints all terminal error messages (except those from copy disk) that occur 
during BASIC or utility modes of operation. For messages occurring in DCALC mode 
of operation, refer to "DCALC Error Messages- VERROR." 

• The assembly of #ERRPG contains these major source modules: 

1. ERRPGM-Mainline logic, Figure 3-1 7. 

2. DL2ICS-Disk logical IOCS, Figure 3-70. 

The error code for all messages except stacked (multiple) is obtained from the system 
communications area in the nucleus at label $CAERR (Figure 5-1). Stacked error codes 
(Figure 3-15) are located at label $$ERSK. The error codes, when present at these loca- 
tions, are the message numbers within ##ERMS. 

The message texts and table of relative displacements are located in the system pro- 
gram file. The assembly containing the messages has the name ##ERMS. Error codes 
passed to #ERRPG index these tables. The message text is read from disk with a two- 
sector read. A message can overlap one sector boundary. After the two sectors are read, 
the message is located in the buffer using the second byte of the table entry (Figure 
3-16). The fourth byte of each message is the length of the message. 

#ERRPG prints an up-arrow under the first improper character of input when a syntax 
error occurs. On entry, the index register points to this position in the input line buffer. 

The bad line is stored in the bad-line buffer on cylinder 4 of the system work area. 
Refer to "System Work Area Equates-@WKAEQ" in the program listings for the disk 
address of the bad-line buffer. 



3-Byte Error Entry 


1 


2 3 


Error code 


Line number 



Note: Byte 2 is set to X'AO' when 
no line number exists. 
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Figure 3-15. Stacked Error Entry at $$ERSK 



2-Byte Error Message Entry 


1 


2 


Relative sector 
displacement 


Relative displacement 
within sector 
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Figure 3-16. Message Table Entry (#ERRPG) 

When a syntax error occurs: 

1. An up-arrow is printed under the first invalid character of input. 

2. On entry, the index register points to this character in the input line buffer. 

3. A full error message is printed if the enter-plus key is pressed. 
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1 . Call $LOADR to load I/O routines, if not in core. 

2. Call DL2ICS to read message table index to core. 




ERR150 



PROCESS SYNTAX ERRORS 



1 . Call $SPRNT to print card if not already printed. 

2. Call $SPRNT to print an up arrow. 

3. Call $DISKN to save the bad line. 
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mode. 
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ERR500 






PRINT ERROR MESSAGE 



1. 


Index table using the error code. 


2. 
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3. 


Call $SPRNT to print header. 


4. 
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5. 


Call $SPRNT to print the message. 



Yes 
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Figure 3-17. Error Message Program (#ERRPG) Flowchart 
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Program Interruption Processor-#EXMSG (Figure 3-18) 

• #EXMSG prints a message on a program interruption, identifying the type of inter- 
ruption, and the line number where the program was interrupted. 

• The assembly of #EXMSG contains the major source module (EXMSGS). 

#EXMSG is loaded (Figure 3-1 1) via the $PAUSD routine in the nucleus when one of 
the following conditions is present: 

1. Console interruption-Printed line number refers to the statement last executed. 

2. Pause statement-Printed line number refers to the pause statement being 
executed. 

3. Step mode-Printed line number refers to the statement last executed. 

4. System stop, system reset, system start— Invokes maintenance utility aids. 



#EXMSG 



EXMSGS 




DETERMINE INTERRUPTION SOURCE, PRINT MESSAGES, SET 
INDICATORS 


1. Enter $LOADR to load input and output routines if not in core. I 

2. Exit $RLOAD if Maintenance Utility Aid called. 

3. Enter $SPRNT to print console interruption, step mode, or pause 
statement message. 

4. Enter C2DEC5 to convert line number. 

5. Enter $SPRNT to print line number. 

6. Set respective NUCLEUS indicators. 
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WAIT FOR INPUT FROM KEYBOARD 






1 . Enter $UNMSK to unmask keyboard. 

2. Enter $$PRES to enable keyboard input. 













No 
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1. Set on appropriate indicators 
in NUCLES. 

2. Enter$CAIPLto reload 
#GUFUD and load input, out- 
put routines. 







Program 
Start 
Key 



Yes 



#GUFUD 
Figure 3-22 
Via $CAIPL 
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PRIME AND RESTORE CORE 


1. Set on appropriate indicators 
in NUCLES. 

2. Enter $RSTR to restore core 
from disk. 







$RSTR 
Figure 3-12 



Figure 3-18. Program Interruption Processor (#EXMSG) Flowchart 
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Work File Update/Crusher-#GUFUD (Figure 3-22) 

• #GUFUD updates the work file in the system work area and maintains the file in 
line-number order. 

While #GUFUD is waiting for the operator to complete the next line of input, the 
crush and reorder portion packs the file by reorganizing the disk blocks that contain 
segments of the file. #GUFUD attempts to keep these disk blocks in physical order, 
utilizing as much space in each active block as possible by condensing the segments of 
I the file. Either the keyboard IOCS (DEPRES), the card reader IOCS (DREADN), or the 
| predefined procedure line fetch routine (#GRAPR) accepts an input statement or com- 
mand from the operator and concurrently builds a line in the primary input line buffer. 
The assembly of #GUFUD contains these major source modules: 

1. GUFCSH-Work file crush and reorder, Figure 3-22. 

2. GURDIN— Common disk read subroutine, no flowchart. 

3. DL4ICS-Work file IOCS, Figure 3-70. 

4. GUFPAK— Pack core buffers subroutine, Figure 3-22. 

5. GUFENT-Initialization, Figure 3-22. 

6. GCPACK— Pack BASIC program statement subroutine, no flowchart. 

7. GUFUPD-Work file update, Figure 3-22. 

Figure 3-19 illustrates the usage of core, initially containing initialization and file 
update routines, as disk I/O buffers. These buffers are referred to as CB1 , CB2, CB3, 
and CB4. The fifth buffer is used by the subroutine that packs the contents of the first 
four buffers. 



ocoo 



1C00 
1D00 



GUFRCP (lists and messages) 




GUCB1 

(disk I/O buffer-CB1) 


GUFENT 
(initialization) 




GUU110 

(line insert— Dart 1 ) 




GUCB2 

(disk I/O buffer-CB2) 


GCPACK 

(pack BASIC statement) 




GUCB3 

(disk I/O buffer-CB3) 


(unused) 




GUCB4 

(disk I/O buffer-CB4) 


GUU122 

(line insert-part 2) 




GUPCWA 
(pack work area) 


GUFCSH 

(work file crush and reorder) 




GURDIN 

{common disk read subroutine) 




DL4ICS 

(work file logical IOCS) 




GUFPAK 

(pack core buffers subroutine) 




GUPCIT (core index table) 




GUFUPD 

(work file update) 




GCPBFR 

(secondary input buffer) 




GUFIT 

(file index table-FIT) 
(3 sectors) 


1FFF 





Figure 3-19. Work File Update/Crusher Core Map 
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The core index table (CIT) contains four 4-byte entries, one associated with each of 
the four core buffers. The content of each entry is: \ 

1. Byte 1 -Relative sector displacement into the work file of the disk block in this 
buffer. 

2. Bytes 2 and 3-Highest line number in this buffer. 

3. Byte 4-Unused or free bytes in this buffer. 

Initialization-GUFENT 

The initial entry to #GUFUD contains a branch to the initialization routine (GUFENT). 
The functions performed by this routine are detailed in Figure 3-22. The area occupied 
by GUFENT is used as disk I/O buffers by other sections of #GUFUD, after initializa- 
tion is complete (Figure 3-19). 

Three indicators in the system communications area (NUCLES) determine the opera- 
tion to be performed on the input: 

1 . SFUIND— A new or replacement line is to be placed in the work file. #GUFUD 
expects a seven-byte statement header (Figure 3-21) in the primary input buffer 
(X'0600'). Following the header, in the eighth byte of the secondary input 
buffer (X'lC00'+7), #GUFUD expects either a syntax-checked BASIC program 
statement, a syntax-checked data file line, or a procedure file line. 

2. $FDIND— A parameter list of line numbers is to be deleted. #GUFUD expects 
the presence of a delete parameter list (Figure 5-26) in the secondary input buffer 
(X'lCOO'). 

3. $FCIND— A single line number is to be deleted. #GUFUD expects the two-byte 
binary line number, of the statement to be deleted, to be present in the fifth and 
sixth bytes of the primary input buffer (X'0600'+4). 

If all three of the preceding indicators are off, only crushing and reorder operations are 

performed. Work file update operation is bypassed. / 

Pack BASIC Program Statements-GCPACK 

If a BASIC program statement is being inserted (addition or replacement) in the work 
file, the GCPACK subroutine is executed to pack the statement. This packing operation 
is performed on the statement after it has been moved to the secondary input buffer. 

Repetitions of characters in the statement are packed before the statement is written 
to the work file. When a character is repeated more than twice, all but the first character 
is replaced by a one-byte count of the additional repetitions of the character. This count 
byte can be recognized by the fact that it cannot equal or exceed X'lC (end-of-statement 
code), the lowest valid functional character. The range of the repetition count byte is 
X'02' thru X'1B\ If the repetition count exceeds X'lB', more than one repetition 
sequence is generated (Figure 3-20). After the line is packed, the byte count of the 
packed'line is stored in the statement header. 

The core area occupied by GCPACK is also used as disk I/O buffers after initialization 
is complete (Figure 3-19). 

Work File Update-GUFUPD 

This routine adds, replaces, or deletes a single statement (line), or deletes lines specified 
by a list of line deletion parameters. The file index table (FIT) in high core is searched, 
by line number, to locate the first affected disk block. This disk block is read into CB1 
and the next two logically sequential disk blocks are read into CB3 and CB4. The disk 
block in CB1 is searched for an equal or high line number. (Equal effects a line deletion 
or replacement; high effects a line addition.) 

) 
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X'OO' (not used) 



Binary Line Number - 



Statement Type Code ■ 



7-Byte Input Line Header 



♦Segment Descriptor Field (count includes itself and EOS if there is one) 



Figure 3-20. System Work File (Packed Data) 
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The four functional operations performed by the work file updater are: 

• Single Line Deletion. Adjust the CIT to reflect the additional free space in CBL Pass 
the core address of the first (primary) segment in the line to the pack core buffers 
subroutine. The packer physically deletes the line (all segments). 

• Line Addition. Line segments are shifted from CB1 into CB2 to provide space for 
the new line. Each block is maintained in ascending line number order. The new line 
may require division into two segments— one in CB1 and one in CB2. In this case, the 
primary segment is moved to CB1 , segments in CB2 are shifted to the right, and the 
secondary segment is moved to CB2. After the new segments are moved to the buffers 
and the CIT is adjusted to reflect their status, the buffers are packed by the pack core 
buffers subroutine. 

Note: Part 1 of the line insertion routine (GUU1 10) may be overlay ed by data being 
moved to CB2 by part 2 of the routine (Figure 3-19). 

• Line Replacement. Processed as a single line deletion followed by a line addition. 

• Deletion of a Range of Lines. Deletion of a range of lines differs from single line 
deletion in these respects: The delete range indicator is set for the pack core buffers 
subroutine. Consecutive passes are made through work file update (GUFUPD) for 
each range of line numbers in the parameter list. When the parameter list is com- 
pletely processed, #GUFUD is reloaded to make a second pass through initialization 
(GUFENT) and print the ready message. 
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Work File Crush and Reorder-GUFCSH 



This routine is executed following the completion of a task by work file update and 
while the system is waiting for the completion of a statement or command input 
operation. 

The FIT in high core is searched, always from the beginning, to locate the first active 
disk block containing more than eight bytes of free space. If such a block is located, that 
block and the next two logically sequential disk blocks are read into CB1 , CB2, and 
CB3. After the CIT is updated, the buffers are packed by the pack core buffers sub- 
routine. The preceding operation is referred to as a single crushing operation. 

Successive crushing operations cause free space to be moved to the logical end of the 
work file. Any scan of the FIT that does not locate a disk block containing excessive 
free space indicates the work file is completely crushed (packed). 

Note: Free space in the last logical block of the file is not considered. 

When the work file is completely crushed, the reorder section (GUFRDR) is executed 
to resequence the active disk blocks into physical order. Physical order means that disk 
blocks are in ascending line number order at consecutive, ascending relative disk addresses 
within the work file. Logical order means that the disk blocks are chained together so 
that they can be accessed in ascending line number order. Chaining is provided by the 
FIT and by the linkage code in the first byte of each disk block. 

To reorder the file, the FIT in high core is searched, always from the beginning, until 
two consecutive entries are found pointing to disk blocks out of ascending order. Four 
disk blocks are read into CB1 thru CB4. These disk blocks are those referenced by four 
consecutive FIT entries, where the two in the center (CB2 and CB3) are the two found 
out of sequence on the search. 

The physical location references in the FIT, for the last three disk blocks read in, are 
sorted into ascending order. The physical location reference of the first disk block can- 
not be changed because it is referenced by a linkage code in a disk block which is not 
available at this point. All four disk blocks are written to the physical disk locations 
specified by the sorted FIT entries. As each is written, it is linked to the disk location 
of the block that follows it. The preceding operation is referred to as a single reorder 
operation. 

Successive reorder operations cause the work file to be closer to being in physical 
order. Any scan of the FIT that does not locate an out-of-sequence condition in the 
file indicates the work file is completely reordered. 

Checks for input line complete (GUFSCL) are made before each crushing or reorder 
operation. If the statement or command input is complete, the command analyzer 
(#ECMAN) is loaded via the system nucleus. If a blank line or card is encountered, input 
is reenabled, and crushing/reordering continues. Successive crushing or reorder operations 
continue until input is complete or the work file is completely reordered. 

Figure 3-21 is a simplified flowchart of the crush and reorder operations. 

Pack Core Buffers Subroutine-GUFPAK 

The packing subroutine is used by both work file update and work file crush and reorder 
to pack the disk blocks in CB1 through CB4 and write them to the work file. Packing the 
core buffers means moving the free space from the first three buffers to the end of the 
fourth buffer by shifting line segments toward the first buffer. The disk blocks in the 
buffers are always in ascending line number order. The packing subroutine also updates 
entries in the file index table (FIT) to reflect changes made to the disk blocks. 
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Figure 3-21. Work File Update, Crush, and Reorder Operations 
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Two address pointers are used to perform the packing operation. One address references 
the start of the first free space in the buffers. The other references the start of the next 
line segment following the free space. The second address is incremented past any secon- 
dary segments of a deleted line, or past deleted lines, when deleting a range. It may 
become necessary to read in more disk blocks, in logical line number order, to effect a 
deletion. A work area (GUFCWA) is used during the packing operation as an interme- 
diate holding area as the buffers are being condensed (packed). 

Following a single pass through the packing subroutine, CB1, CB2, CB3, and CB4 may 
contain line segments (always in ascending line number order). Only the CB's containing 
active segments are written back to the work file. 

FIT entries may become null (due to line deletions), be activated (line addition; one 
entry only), or be modified (changes in line number and/or free space). 



#GUFUD 



GUFENT 




CHECK SYSTEM STATUS AND 
INITIALIZE FOR REQUESTED FUNCTION 



1. 
2. 
3. 
4. 
5. 
6. 

7. 
8. 
9. 

10. 



-11. 
12. 



Mask inquiry requests. 
Call $SPRNT to wait if in keyboard mode. 
Call $LOADR to read in I/O routines if they're not in core. 
Call $SPRNTto print 'FUNCTION INTERRUPTED' if appropriate. 
Call $SPRNT to print READY if appropriate. 
If in utility mode, or work file not defined, or contains a program- 
generated data file, set for no crushing. ^ ^mm^— — 
If FIT not in core, call $DISKN to read it in. 
If a delete list passed, 



Move primary input buffer to secondary input buffer if work file 
to be updated. 

Check for potential automatic line number overflow; if so, and card 
NUM input, give internal error message via $SPRNT. If so, and card 
input, set exit to $CAERK to load #ERRPG. 
Call $$PRES to enable input if in key mode. 
If no update required, call $DISKN to wait for disk operation to 
complete. ■ 



13. If a BASIC statement to be inserted, call GCPACK to pack it. 




GUFUPD 




UPDATE THE WORK FILE 



Search the FIT for the specified line number. 
Call DL4ICS to read the affected data blocks. 
Search the data blocks for the specified line number. 
Ignore deletes of non-existent line numbers. ^ 
If delete of existing line, go initialize packing routine.. — — 
If a replacement of line, set pointers to delete it and handle as a 
new line. 

If a new line, insert it in data block 1 or null data block and 
initialize packing routine. 
Execute data block packing routine. 
If a delete list, 



If in card input mode: 

a) Unmask inquiry request, 

b) Re-mask inquiry request, 

c) Call $$PRES to initiate card read, 

d) 



11. If not end of delete list, increment to next line number. 

12. If end of list, exit to $CARPL to load $GUFUD. 

13. Exit to $CAERK to load $ERRPG if errors. 
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Figure 3-22. Work File Update/Crusher (#GUFUD) Flowchart (Part 1 of 2) 
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GUFCSH 



CRUSH AND/OR REORDER THE WORK FILE 
UNTIL INPUT COMPLETE 



Unmask inquiry requests if key input. 

Call $$CDBS to set input status if card input. 

If input not complete: 

a) Call $DISKN to wait for disk operation to complete, 

b) Mask inquiry requests, 

c) 

Exit to $CAERK to load $ERRPG if errors have occurred. 
If card input and blank line entered, 



10. 
11. 



Call $$PRES to enable input if blank line entered and key input 
If not a blank line entered: 

a) If utility mode, load and execute $ECMAN via $RLOAD, 

b) If conversational mode, load and execute $ECMAN via $BLOAD 
Search active portion of FIT for null spaces. 
If null spaces found: 

a) Call DL4ICS to read in effected data blocks, ^ 

b) Initialize packing routine, > — — 

c) Execute packing routine, ; 

d) 

Search active portion of FIT for data blocks out of physical order. 
If data blocks out of order: 

a) Call DL4ICS to read in 4 data blocks, 

b) Order the FIT entries data block displacements, 

c) Update the data blocks linkage indicators, 

d) Call DL4ICS to write the data blocks to the work file. 






GUFPAK 


LJ 






DATA BLOCK PACKING ROUTINE 


1 . Primed with from 1 to 4 data blocks to be packed. 

2. Save return to calling section. 

3. Pack the data blocks by removing the null spaces. 

4. If the range delete indicator is on, delete lines within range. 

5. Update the file index table. 

6. Call DL41CS to write the active data blocks back to the work file. 







Return to 
Calling Sequence 



3R 1063.2 

Figure 3-22. Work File Update/Crusher (#GUFUD) Flowchart (Part 2 of 2) 
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Command Analyzer-#ECMAN (Figure 3-24) 

• #ECMAN analyzes BASIC system input and loads the program required to process 
the requested function. 

• The assembly of #ECMAN contains the major source module, ECMANL. 

All input from the keyboard or card reader is analyzed by #ECMAN, except for blank 
lines, or input at execution time, to user written BASIC programs. #ECMAN is loaded 
by the file update program (#GUFUD) when a completed input record (EOS detected) 
exists in the input line buffer. The following actions are taken: 

1. Input starting with a keyword causes the corresponding keyword program to be 
loaded and executed. #ECMAN scans a table, containing one entry for each key- 
word, for a match with the input line. The DPL used to load the keyword pro- 
gram is built from fields in this entry (Figure 3-23). 

2. Input starting with a line number causes the appropriate syntax checker program 
I (#SFSYN, #SPSYN, or #SDSYN) to be loaded and executed. 

3. If the first character of input is a command key, #EFKEY (Figure 3-61) is loaded. 

4. Invalid lines, and other error conditions, cause the error program (#ERRPG) to be 
loaded and executed. 

5. If DCALC-requested code is on the first text byte of primary input buffer, DCALC 
is invoked. 



Length 


Field Name 


rlclCJ LJcbCI 1 fJUUl 1 


1 


Keyword length 


Count of letters in the 






keyword = n. n + 7 = length 






of this entry. A length of 






zero indicates end of table. 


1 


Indicators 


X'80'-Work file can be 






program generated. 






X'40'-Work file can be 






protected. 






X'20'-Work file must not 






be empty. 






X'10'-Work file must be 






defined. 






X'08'— Non-pause state 






only. 






X'04'— Pause state only. 






X'02'— Conversational 






mode only. 






X'OT-Reserved. 


1 


Indicators 


X'80'-Reserved. 






X'40'— Virtual memory 






must be intact. 






X'20'— Allowed in temporary 






utility mode. 






X'10'-Workfile can be 






data file. 






X'08'— Virtual memory 






overlay ed. 






X'04'-l/O routines 






overlayed. 






X'02'— Prime buffers with 






work file. 






X'Or-FIT overlayed. 



Length 


Field Name 


Field Description 


2 


Relative disk 
address 


Displacement of the first 
sector in the keyword pro- 
gram relative to the start of 
the system program file. 


1 


Sector count 


Count of sectors occupied 
by the keyword program. 


1 


Load address 


High-order byte of two-byte 
core load address. Low-order 
byte is always X'OO'. 


n 


Keyword 


Actual keyword. This field 
is scanned for a match to 
the input line buffer. 



Figure 3-23. Keyword Table Entry (#ECMAN) 
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ECM110 
CARD INPUT 



1. Set EOS after last non-blank. 

2. Insert automatic line number if in numeric mode, 

3. Call $SPRNT to list card if not in no-list mode. 



ECM200 



ECM230 




ECM500 



FILE LINE 



1 . Call C4BIN2 to convert line number to binary. 

2. Put binary line number in header. 

3. Check error conditions. 




ECM402 



Procedure 



#SPSYN 
Figure 3-28.1 
Via $BLOAD 



ECM410 



Data 



#SDSYN 
Figure 3-28 
Via $BLOAD 



POTENTIAL SYSTEM COMMAND 



1 . Call $SPRNT to list card'if in no-list mode. 

2. Search table for valid keyword. 



#ERRPG 
Figure 3-17 
Via $CAERK 






Call $SPRNT 




to print 




question mark 


) 





'jFGUFUD 

Figure 3-22 Via 
v $CABLDor$CAIP 



#GUFUD 
Figure 3-22 
Via $CABLD 




#SFSYN 
Figure 3-27 
Via $BLOAD 
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SYSTEM COMMAND 
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Check if command allowed. 


2. 


Call $DISKNto save FIT if 




necessary. 


3. 


Call $DISKN to prime buffers 




if requested. 


4. 


Set appropriate indicators. 


5. 


Call $UNMSK to allow 




interrupts. 


6. 


Set $RLOAD DPL for this 




command. 




Yes 



#ERRPG 
Figure 3-17 
Via $CAERK 



Keyword Program 
Via $RLOAD 



Figure 3-24. Keyword Table Entry (#ECMAN) Flowchart 
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Command Key Processor— #EFKEY (Figure 3-25) 

• #EFKEY processes command keys 1 through 1 1 

• #EFKEY resides in the system program file and is loaded behind the I/O routines in 
core by the command analyzer (#ECMAN). 

• The command key table (##CKTB) contains commands that are either IBM assigned 
or assigned by the KEYS keyword program. 

The command key table (##CKTB) has an entry for each of command keys 1 through 
1 1 . Commands in the table are either IBM assigned or assigned by the KEYS keyword 
program. Figure 5-28 is a list of the IBM assigned command key functions. See Fig- 
ure 5-27 for the format of the command key table. 

If the command length in the table is nonzero, the command text for the specified 
key is passed to the command analyzer (#ECMAN) in the input line buffer. If the 
command length is zero, the IBM assigned function for command key 1 , 4, or 7 
(whichever key is specified) is processed by routines in #EFKEY. 
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#EFKEY 







READ TABLE 


Call $LOADR to read the 
command key table ##CKTB 
into core. 








1. Find the command text 
in the command key table 
##CKTB. 

2. Move the command text 
to the input line buffer. 



EFU990 



PRINT THE COMMAND 



Call $SPRNT to print the 
command on the system 
printer. 



#ECMAN 
Figure 3-24 
Via $RLOAD 



EFUK07 




Key 7 / Command 
key number 



PROCESS KEY 7 



1. Create a default file 
name. 

2. Move 'EDIT plus file 
name to the input line 
buffer. 



Key 1 



EFUK01 



PROCESS KEY 1 



Set the #VODKA indicator. 



Key 4 



EFUK04 



PROCESS KEY 4 



Call $SPRNT to print the 
input line buffer up to the 
last up-arrow or EOS. 



#GUFUD 
Figure 3-22 
Via $CABLD 



BR1066A 



Figure 3-25. Command Key Processor (#EFKEY) Flowchart 
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BASIC Statement Syntax Checker-#SFSYN (Figure 3-27) 

• #SFSYN examines every BASIC statement for valid syntax. 

• The assembly of #SFSYN contains the source module, SFSYNC. 

If a syntax error is detected, #ERRPG is called to print an up-arrow under the first 
invalid character of the statement. The index register is loaded with the address of this 
character. An error code is also loaded into $CAERR in case the user pressed the enter- 
plus key, requesting a full text message. 

If no error is found, a one-byte type code is placed in the byte immediately preceding 
the BASIC statement in the input line buffer. 

#SFSYN scans a statement branch table (Figure 3-26) for the address of one of 18 
routines used to syntax check statements. The first two nonblank characters after the 
line number are used in this scan when a statement keyword is in evidence. For those 
exceptions where no keyword exists (IMAGE, non-LET assignments), a direct branch 
is taken to the proper syntax checking routine. 

The arithmetic expression routine includes a search through an intrinsic function table 
that contains 23 entries. Each entry contains the three-byte name of an intrinsic func- 
tion. The arithmetic expression routine also uses an eight-byte pushdown list to validate 
nested subexpressions. Each single-byte entry in the pushdown list indicates the validity 
of a comma appearing in the remainder of the subexpression. 



4-Byte Statement Branch Table Entry 


1 


2 


3 


4 


Keyword prefix 


Routine address 
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Figure 3-26. Statement Branch Table Entry (#SFSYN) 
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1. PRINT & PRINT USING 
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LET 
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O Pol 1 O 




6. 


GOTQ&GOSUB 


SFSGOS 




7. 


READ, REM, RESTORE & RETURN 


SFSRES 




8. 


INPUT 


SFSINS 




9. 


END 


SFSENS 




10. 


PAUSE 


SFSPAS 




11. 


DIM 


SFSDIS 




12. 


DATA 


SFSDAS 




13. 


STOP 


SFSSTS 




14. 


PUT 


SFSPUS 




15. 


GET 


SFSGES 




16. 


DEF 


SFSDES 




17. 


CLOSE 


SFSCLS 





PROCESS BASIC STATEMENT 



1 . Scan statement from the leftmost character to the 
EOS symbol terminating the statement. 

2. Set type code at $$TPCD. 

3. Set character pointer (XR) to first invalid character 
(except in substring operands). 

4. If STR typecode is encountered 




Yes 




SFSMAT 



Exit to $BLOAD 
To Load 0SFOVR 



#SFOVR 



PROCESS BASIC MAT STATEMENTS 



1. Call $BLOAD to load MAT routines. 

2. Scan statement from left most character to EOS 
terminating statement. 

3. Set type code at $$TPCD. 

4. Set character pointer (XR) to first invalid 
character. 



Exit to #BLOAD (if initial) or branch 
directly (if not initial) to load #STROV. 



PROCESS SUBSTRING OPERANDS 



Scan operand field from left 
parenthesis to right parenthesis 
inclusive. 

If operand field valid, return with 
XR pointing to the next character 
past the operand field. 
If operand field invalid, return 
with XR pointing to the first 
invalid character. 



SFSERR 




Load XR (Error Pointer) to $CAERR 








Set $INDR2 Indicator to $FUIND 
&$READY 




#ERRPG 
Figure 3-17 
Via $CAERK 



#GUFUD 
Figure 3-22 
Via $CABLD 



Figure 3-27. BASIC Statement Syntax Checker (#SFSYN) Flowchart 
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Data Syntax Checker-#SDSYN (Figure 3-28) 

t #SDSYN examines data entered when operating under the EDIT DATA command, 

• The assembly of #SDSYN contains the source module, SDSYNC. 

If a syntax error is detected, #ERRPG is called to print an up-arrow under the first 
invalid character of the statement. The index register is loaded with the address of this 
character. An error code is loaded into $CAERR in case the user depresses the enter- 
plus key, requesting a full text message. 

If no error is found, each character or numeric constant is converted to internal form 
in the secondary input buffer. This buffer is written to the work file by #GUFUD (Fig- 
ure 3-22). The secondary input buffer contains a header preceding the statement. This 
header contains the length of the data and header in the secondary input buffer. 



#SDSYN 



SDS010 




INITIALIZE DATA SYNTAX CHECKER 


1. Set primary "input buffer pointer to $XRSAV. 

2. Test for mandatory blank. 

3. Initialize secondary line buffer header. 

4. Set routine for long precision if required. 

5. Increment past leading blanks. 


o — 




^ ' SDS070 



SDS080 




No 



TEST AND TRANSLATE CHARACTER CONSTANT 



1 . Initialize character constant field in secondary line 
buffer. 

2. Increment line count by character length. 

3. Test for maximum buffer length. 

4. Test constant syntax as each character is moved to 
secondary line buffer. 

5. Exit to $CAERK on errors to load #ERRPG. 



VALID DELIMITER SEQUENCE SCAN 



1 . Test for valid delimiter sequence. 

2. If at end of line, set valid line indicator and exit to 
$CARPL to load file update routine. 

3. If valid sequence increment line pointer and recycle 
loop until end of line. 

4. Exit to $CAERK on errors to load #ERRPG. 



SDS300 



TEST AND TRANSLATE ARITHMETIC CONSTANT 



1 . Initialize loop. 

2. Initialize arithmetic constant field in secondary line 
buffer. 

3. Increment line count by constant length. 

4. Test for maximum buffer length. 

5. Test syntax of the constant's mantissa as it is 
moved to secondary line buffer. 

6. Test syntax of the exponent if it exists. 

7. Enter C4BIN2 to convert exponent to binary. 

8. Adjust exponent and test validity. 

9. Exit to $CAERK on errors to load #ERRPG. 



SDS600 



PACK THE ARITHMETIC CONSTANT 



1 . If mantissa is zero, set status to positive and 
exponent to maximum low. 

2. Pack the constant mantissa in place. 

3. Insert constant's exponent. 

4. If long precision, set long precision indicator 
in item. 





#ERRPG 
Figure 3-17 
Via $CAERK 



) 



Figure 3-28. Data Syntax Checker (#SDSYN) Flowchart 
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Procedure Line Checker-#SPSYIM (Figure 3-28.1) 

• #SPSYN analyzes procedure lines when operating under the EDIT PROCEDURE 
command. 

• The assembly of #SPSYN contains the major source module, SPSYNC. 

If a format error is detected, #ERRPG is called to print an up-arrow under the invalid 
character of the statement. The index register is loaded with the address of this character. 
An error code is loaded into $CAERR in case the user depresses the enter + key to request 
a full text message. 

If no error is found, each character is moved to the secondary input buffer. This 
buffer is written to the system work file by #GUFUD (Figure 3-22). The secondary 
input buffer contains a header preceding the statement. This header contains the length 
of the procedure line and header in the secondary input buffer. 

flSPSYN 

SPSYNC 



INITIALIZATION, CHECK DELIMITERS 

1. Point to start of input line buffer. 

2. If a mandatory blank is not present, move an error code to 
$CAERR and exit to $CAERK. 



SPS020 

BUILD SECONDARY LINE BUFFER, ADJUST POINTERS 

1. Zero header of temporary buffer. 

2. Move a character from the input line buffer to temporary 
buffer. 

3. Update character count in the SDF header. 

4. Exit to SPS1 00 if EOS character. 

5. Update the buffer pointers for the next character. 



SPS100 

SET NUCLEUS INDICATORS 

1. Set the valid line indication for #GUFUD. 

2. Move the temporary buffer to the secondary line buffer. 



CtfGUFUD 
Figure 3-22 
Via $CABLD 

Figure 3-28.1. Procedure Line Checker (#SPSYN) Flowchart 
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Conversational I/O Routines-#DPRII\I 

• This program contains two I/O subroutines: DPRINT and DEPRES, Their functions 
are described in the following paragraphs. 

Matrix Printer IOCR-DPRINT (Figure 3-29) 

• This routine provides six print I/O functions. 

• If an operation is not in progress when a call is made to this IOCR, the operation is 
started and a return is made to the calling program. 

• If a previous operation is in progress, the IOCR does not return until that operation 
is completed error free and the new operation is started. 

• The calling sequence for DPRINT is: 

Calling sequence for system printer: 
B $SPRI\!T 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 

Calling sequence for a direct call to the matrix printer: 
B DPRINT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 



t No checks are made for validity of the PPL. 
I/O Functions-DPRINT 

Print: The data to be printed must reside in core and be contiguous. Any length of data 
up to 256 characters can be printed by one call. The IOCR starts printing the data at the 
current print element position. If the programmed right margin is hit, the print element 
is returned to the programmed left margin and the form is advanced to the next line. 
Printing is then completed on the next entry to DPRINT. Upon completion of the print 
function, the print element is positioned at the next print position after the last character 
is printed. 

Print and Return Element: This operation is the same as print, except the print element 
is positioned at the programmed left margin on the next line following the completion 
of print. 

Return Element: The print element is positioned at the programmed left margin and the 
form is advanced to the next line. 

Backspace and Index: This operation moves the print element left one print position 
and indexes (advances) the forms one line. If the left margin is hit, no more spacing is 
done. 

Backspace: This operation is the same as backspace and index except no index is 
performed. 

Wait and Check for Errors: To allow printer overlap, a special wait function is provided. 
The IOCR waits for the previous operation to be completed and then checks for errors. 
If the previous operation hit the programmed right margin, a new operation to continue 
printing on the next line(s) is started and completed before a return is made. 
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Keyboard IOCR-DEPRES (Figure 3-30) 

• DEPRES handles input from the keyboard. 

• DEPRES is divided into two sections: 

1 . Call section— Enables interruptions and unlocks the keyboard in preparation 
for line input. It sets the interruption address to the interruption section. When 

a key is pressed, the interruption section is entered on the keyboard interruption 
level. 

2. Interruption section-Saves the system status (BR, XR, PSR, ARR, Pl-IAR) 
and handles the data input from the keyboard. Upon completion of the input 
line, $KYBSY is set to zero, indicating the line is complete. The keyboard is 
then locked (inquiry request is never locked). 

• Entry Points. When line input or a command key is desired by the calling program, 
the call section of DEPRES is called, unlocking the keyboard and setting the line 
input indicator ($KYBSY): B DEPRES. If only a command key or a function key 
is desired, $CMDKY is set on by the calling program, indicating to the keyboard 
IOCR that only command keys and interruption requests are to be recognized. 

• Exits. Exit from the call section is to the calling program; exit from the interruption 
section is to the interrupted program. 

• Data parity is checked. 
Key Functions (DEPRES) 

Data Keys: The character is placed in the input line buffer and printed on the system 
printer. 

Tab Keys: If the current position in the line buffer is pointing within an existing line, 
the old character is printed. If it is not, a blank is printed. This positions the carrier one 
space to the right. If the key is held down, the typamatic feature is activated and the 
spacing operation is repeated until the key is released. 

Backspace Key: If the system printer is the matrix printer, and if this was the first back- 
space for the current line, the carriage is indexed and backspaced one position. Other- 
wise, the index feature is not executed. If the key is held down, the typamatic feature is 
activated and the backspace operation is repeated until the key is released. 

Return Key: The carriage is returned on the system printer and $KYBSY is set to zero, 
indicating the line is complete. The keyboard is then locked. 

Erase Key: ERASE is printed, and the carriage is returned on the system printer, allow- 
ing the line to be reentered. 

Inquiry Request Switch: Depending upon the mask status, the current operation is 
aborted. This switch, on the keyboard console, cannot be locked. 

Program Start Key: The data is sensed and saved. If it is the start of a line, the auto 
line is printed. This key is also used to start execution when the system is in pause mode. 

Enter-Minus Key: Printer (if in use) is indexed one line. 

Enter-Plus Key: Used to invoke the second-level error message. 

Command Keys 1 through 11: If the print element (or CRT cursor) is at the left margin, 
the command key indicator is placed in the input line buffer. 

Other Command Keys: If the CRT is present, DSPLYN is called to perform the function 
requested. 
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Error Procedures 



A data register parity error is retried once. The system halts upon such an error, indi- 
cating to the user that a parity error has occurred. The system start switch must be 
activated to continue. Two successive parity errors cause a system-generated hard halt. 
An IPL must be initiated to recover from a hard halt. 
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$SPRNT 


3-9 


Print character 
on system 
printer. 


DEU010 j 


Update 
of MP h 
and nex 
address 


position 
ead 
t data 
In buffer. 
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Calling 

Program 




BR1072 



Figure 3-30. Keyboard IOCR (DEPRES) Flowchart 
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Card Reader I/O Routine— #DRE AD (Figure 3-31) 

• #DREAD provides two functions: 

1 . Reads a card into the input line buffer. 

2. Tests to see if the card reader is busy. 

• This routine overlays the keyboard routine (DEPRES) in core when the input mode 
is cards rather than keyboard. 

• Entry points: 

1 . DREADN-Initiates the reading of a card. This entry is the same as enabling 
and unlocking the keyboard when keyboard is desired (refer to "Keyboard 
IOCR-DEPRES"). 

2. CRDBSY— This entry is to test completion of the card read function. 

#DREAD is called into core by the work file update/crusher program (#GUFUD), over- 
laying the keyboard routine (DEPRES), when card input is specified. 

The calling program branches to DREADN in #DREAD to read a card in the card 
reader. A check is made to see if the card reader is busy. If the card reader is busy, a 
branch is made to the card busy routine (CRDBSY). If the card reader is not busy, and 
is ready to operate, the reading of a card is started. #DREAD exits to the calling pro- 
gram while the card is being read. The calling program must then reenter #DREAD at 
entry point CRDBSY to test for successful completion of the card read function. 

CRDBSY is entered to see if the card reader is busy and if an error is indicated in the 
card reader. If it is not busy and no error is indicated, #KYBSY indicator is set to 0, 
indicating completion of the card input, and return is made to the calling program. If 
the card reader is not busy and an error is indicated, the error pending indicator is set 
on, and the CRDBSY routine is reentered to retest for the error indication. A soft halt 
results if there is a compare error or a transport jam. The error test is made for a maxi- 
mum of five times. A hard halt results after the fifth try if an error still exists. 
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Figure 3-31. Card Reader iOCR (#DREAD) Flowchart 
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Procedure File Line Processor-#GRAPR (Figure 3-31.1) 

• #GRAPR performs 3 functions: 

1. Reads a procedure file line into the input line buffer 

2. Simulates a card reader not busy condition 

3. Places READ KEY in the input line buffer after all the lines in the procedure 
are processed. 

• This routine overlays the keyboard routine (DEPRES) when the input mode is 
procedure file rather than keyboard or cards. 

• Entry points to #GRAPR are : 

1 . GRAPRO— Reads one SDF unpacked line. This entry is the same as enabling 
and unlocking the keyboard when input is from the keyboard. 

2. $$CDBS— Simulates a test for completion of the card read (not busy). 

#GRAPR is loaded to main storage by the work file update/ crusher (#GUFUD) and 
overlays the keyboard routine (DEPRES) when PROCEDURE FILE is specified. 

The calling program branches to GRAPRO to read a procedure file line. #GRAPR 
extracts sequential procedure text lines unpacked and stripped of SDF fields and puts 
them in the input line buffer. The index register (@XR) points to the next binary line 
number. #GRAPR returns to the calling program after the procedure line is in the 
input line buffer. 

$$CDBS is entered to simulate a check for a card not busy condition. The indicator 
#KYBSY is reset to zero to indicate a not busy status. #GR APR then returns to the 
calling routine. 
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ffGR APR 

GRAPRO 



INITIALIZE, PRIME BUFFERS 

1. Save and load registers. 

2. Set GRANDA to $NEXTB. 

3. Set DL2RAD to next sector in temporary SDF 
work area. 




GRA005 



READ NEXT SDF BUFFER 



1. Mask interrupts. 

2. Read the DB sector into core overlaying FIT. 

3. Wait for disk operation to complete. 

4. Point the index register to next line number. 

5. Set GRASIZ to $DFDET. 

6. Set $NEXTL to instruction to point index register to 
current procedure line. 



GRA300 



DETERMINE STATUS OF LINE AND RETURN TEXT 



If EOF found, move READ KEY to input line 
buffer. 



Set an indicator for single or multiple segment. 
Initialize to move text to input line buffer. 
Move X'7B' {#) to input line buffer. 
Scan across blanks to line number. 
Move line number to input line buffer and print. 
Scan across blanks to text of procedure line. 
If the line number is disabled, move X'5C (*) 
to the start of the input line buffer. 
Move the line text to the input line buffer. 



GRA220 





ADJUST POINTERS FOR NEXT PROCEDURE LINE 



If the end of buffer is detected, branch to 
GRAGET to read the next DB sector. 
Move displacement within the buffer for the 
next line to $NEXTL. 
Set #NEXTB to GRANDA. 
Set $DFDET to GRASIZ. 
Set nucleus INDR for GUFUDI to clear input 
line buffer. 

Restore index register. 

Exit to GRAFIT subroutine to restore FIT 

and unmask interrupts. 



c 



Return 



c 



$$CDBS 



SIMULATE CARD READ l\ 


IOT BUSY STATUS 


Set off $KYBSY in $KEYC[ 


D. 



c 



Return 



Figure 3-31.1. Procedure File Line Processor (#GRAPR) Flowchart 
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CRT I/O Routine-#DSPLY (Figure 3-32) 

• DSPLYN is the IOCR used for displaying output to the CRT. 

• It is used in place of (or with) DPRINT. When the CRT is designated as the system 
printer, #DSPLY is used. When both the matrix printer and the CRT are designated 
as the system printer, DPRINT and #DSPLY are used. 

• Calling sequences to #DSPLY are: 

Calling sequence for system printer: 
B $SPRNT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 

Calling sequence for a direct call to print on the CRT: 
B DSPLYN 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 

Calling sequence for a direct call to print on both the CRT and matrix printer: 
B DSPYMP 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 

Calling sequence used to clear the CRT screen: 
B DSPCMD 

• The address in the calling sequences must be relocated by the value in $EXFTR. 

This routine is normally called via the nucleus interface SSPRNT, which decides the 
device to be used for output. DSPLYN handles all functions used by DPRINT plus 
additional features for the CRT. If these additional functions are used, the calling 
program must know that the CRT is being used. 

Printer/CRT Functions 

• The following functions can be performed on the matrix printer and the CRT: 

Print: Data is displayed starting at the current display position and continuing, line by 
line, until all characters have been displayed. 

Print and Return: This function is the same as print, except that the next position to be 
displayed is at the start of the next line. 

Return: The next position to be displayed is at the start of the next line. 

Tab Left/Tab Left and Index: The CRT cursor (next print position) is moved to the left 
(backspaced) one position. No indexing is done. If the cursor reaches the left position of 
the statement and another tab left is issued, the cursor remains there. 

Tab Right: The cursor is moved right the desired number of positions. If the physical 
right margin is encountered, the cursor is moved to the left margin and the displayed 
lines are indexed. 

Wait: This function tests the CRT for errors. 

• The following function is for CRT use only: 

Roll Down and Print: The displayed lines are rolled down and the new data is displayed 
on the top line. A maximum 64-byte character string can be used with this function. 
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Figure 3-32. CRT IOCR (#DSPLY) Flowchart (Part 1 of 2) 
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Figure 3-32. CRT IOCR (#DSPLY) Flowchart (Part 2 of 2) 
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Maintenance Program Load Trace-#?TRAC (Figure 3-33) 

• #ZTRAC is called to print the program header of every program loaded by the system 
nucleus (NBLOAD) when the branch in NBLOAD is active. 

• To reverse the trace program to the opposite status, enter maintenance utility mode, 
key in a T, and press the return key. 

#ZTRAC is loaded and executed on each entry to NBLOAD before the requested pro- 
gram is loaded to core (see Figure 3-33). #ZTRAC is loaded to the same core address as 
the requested program. 

#ZTRAC reads the first sector of the program being loaded. The first six characters of 
this sector are displayed on the matrix printer at the physical left margin. 



#ZTRAC 



#ZTRAC 



READ SECTOR AND PRINT HEAE 


)ER 


1 . Calculate I/O buffer address. 

2. Read first SCTR of transient to I 

3. Return printer carrier to hardwar 
and return to software left margi 


10 buffer (DKDISK). 

e left margin, print transient header 

n. 



ZTRERR 




No 



ERROR RECOVERY 




1. Set up OBR error entry. 

2. Retry print operation. 

3. If error occurs on retry, set $HRDER on in $IOIND. 

4. Set $ERPND on in $INDR2 for error logging transient, NERLOG. 


ZTR200 







NBLRTN 
Figure 3-14 
in NBLOAD 



Figure 3-33. Maintenance Program Load Trace (#ZTRAC) Flowchart 
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• Keyword programs are described in alphabetical sequence. 

ALLOCATE Keyword Program-#KALLO (Figure 3-35) 

• #KALLO defines data file attributes for the BASIC program in the work file. 

• The assembly of #KALLO contains these major source modules: 

KALLOC— Mainline logic, Figure 3-35 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
SFINDF— Find library file, Figure 3-83 
SURCHN-Search null directory, Figure 3-81 
STUFID-User directory insert, Figure 3-80 
DL2ICS-Disk logical IOCS, Figure 3-70 

#KALLO will load #SPACK, Figure 3-86, when disk space can be obtained by packing 
the file library. #SPACK loads, and returns to, #KALLO. 
Functions of #KALLO are: 

1 . Build a user directory entry to reserve space for NEW, PERMANENT, DISK 
files. 

2. Update the work file I/O record with data file information from the command 
parameters. This record is used at execution time by the GET/PUT routines to 
define the I/O device and disk location, if the device is disk, for data files ref- 
erenced by the BASIC program. 

KALLOC builds an entry for the system work file I/O record (Figure 3-34). 



Hexadecimal 
Displacement 


Decimal 
Displacement 


Length 


Description 


00 


0 


1 


Device code 


01 


1 


8 


GET/PUT name 


09 


9 


2 


SCRATCH file size 


09 


9 


6 


Disk label 


OF 


15 


8 


Password 


17 


23 


8 


Filename 


1F 


31 


1 


Unused 


Note: Each active entry must define a device code and GET/PUT 
name. The content and meaning of the other fields depend 
upon the device code. 



BR1077 

Figure 3-34. Entry for I/O Record 
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KAL500 

SYNTAX CHECK THE COMMAND LINE 



1. Call $DISKN to read the I/O record. 

2. Exit to $CAERK to load #ERRPG if errors occur. 

3. Call SUFFER to check the file-specification. 

4. Call SALPHA to check the I/O filename(s). 

5. Look up each parameter in keyword tables: 

a) Check for duplicate parameters, 

b) Check for conflicting parameters. 

6. Call C4BIN2 to convert space specified. 

7. Call SCSTRG to check file-header. 



KAL100 




SEARCH I/O RECORD AND INSERT ENTRY 



1. Search I/O record for I/O filename(s). 

2. Exit to $CAERK if errors. 

3. If a permanent disk file specified, 
-4, Set up new entry in I/O record. 

5. Call $DISKN to write the I/O record. 

6. Exit to $CARPL to load #GUFUD. 




C#GUFUD N 
Figure 3-22 J 
Via $CARPL J 





PROCESS PERMANENT DISK FILE 



Exit to $CAERK if errors. 
Resolve password and disk-label. 
If an old file, 



10. 
11. 
12. 



Call SFINDF to search for specified file. 
If file found exit to $CAERK. 
If no disk-label specified (Two-Star file), 
call SFINDF again to find first'/'next' disk. 
Call DL2ICS to read the null directory. 
Call SURCHN to search for null space in file 
library. 

If contiguous space not available: 

a) If total space available but fragmented — 

b) If no disk-label specified, ^— ^^^^^^^ 

c) Exit to $CAERK to load #ERRPG. 

Call STUFID to make new user directory entry. 
Call DL2ICS to write the null directory. 
Call DL2ICS to write an end-of-file sector. 




#SPACK 
Figure 3-86 
Via $R LOAD 



M3 
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Figure 3-35. ALLOCATE Keyword Program (#KALLO) Flowchart 
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CALL Keyword Program-#KCALL (Figure 3-35.1) 

• #KCALL calls procedure files from the user library. 

« The assembly of #KCALL contains these major source modules: 

KCALLN-Mainline logic, Figure 3-35.1 

GRABIT-Work file input, Figure 3-74 

SFINDF— Find library file, Figure 3-75 

SVOLID-Search volume-ID table, Figure 3-76 

SGETDB-Search password directory, Figure 3-77 

SRCHFN— Search user directory, Figure 3-78 
The functions of #KCALL are: 

1 . Syntax check the CALL command 

2. Find a saved procedure file in the user library 

3. Copy the procedure file to the temporary procedure save area on disk 

4. Initialize indicators in the system nucleus for the call sequence 
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#KCALL 



KCASYN 




SYNTAX CHECKING 


1. Exit to SUFFER to syntax check filename, 

2. Exit to C4BIN2 to convert starting line 
number to binary, if specified. 







KCA980 




Yes 



FETCH SAVED FILE INFORMATION 



1. Exit to SFINDF to find saved file. 

2. Set up DLP and file size for DL2ICS use. 

3. Initialize GRABIT to saved file. 

4. Exit to GRABIT to FETCH file start 
line number. 



KCA060 




Yes 



COPY FILE TO TEMPORARY SPF WORK AREA 



1. Print file name, number of disk units, and 
the last modified date file. 

2. Exit to DL2ICS to write file to temporary 
SPF work area. 



INITIALIZE NUCLEUS POINTERS 



1. Set 3 nucleus indicators to start of 
procedure file in temporary SPF area. 

2. Set $READY in $INDR2 to off. 

3. Set$IOYES in $KEYCD to off. 

4. Set $CARDI in $KEYCD to on. 

5. Set $CALLI in $DBGUF to on. 

6. Set $CLBFR in $INDR3 to on. 

7. Exit to $SPRNT for print-wait function. 



#GUFUD 
Figure 3-22 
Via $CARPL 



Figure 3-35.1. CALL Keyword Program (#KCALL) Flowchart 
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CHANGE Keyword Program-#KCHAI\l (Figure 3-36) 

• #KCHAN alters a previously entered line without reentering the entire line. 

• The assembly of #KCHAN contains these major source modules: 

KCHANG-Mainline logic, Figure 3-36 
GFINDN— Locate work file disk block, no flowchart 
GRABIT-Work file input, Figure 3-74 
SDLIST— List data files, no flowchart 
DL4ICS-System work file IOCS, Figure 3-70 

The CHANGE command is used to alter a previously entered line without retyping the 
entire line. If a line number parameter is present, the specified line number from the 
work file is changed. If no line number is present, the last line entered containing a 
syntax error is changed. The line may be a file line or a system command. 

#KCHAN performs the text replacement on the specified line and then prints the 
changed line. When the line is printed, the carriage is not returned. At this point, the 
system operates as if the user has just entered the line printed by the CHANGE com- 
mand but has not yet entered the carriage return. The backspace and tabulate keys may 
now be used to modify what appears to be the original line. When the operation is ter- 
minated by a carriage return, the changed line is accepted as a normal keyboard input 
line and the appropriate action is taken. If the changed line exceeds the current width, 
an automatic carriage return is given. The same procedure is followed if the command 
is input from the data recorder. 

The optional character string constant parameters define the text changing to be per- 
formed. In addition, further changes may be performed with the use of the FIRST or 
ALL parameter. Basically, the first occurrence in the line of the first character string 
constant is replaced by the second character string. If ALL is specified, all occurrences 
of the first character string are replaced by the second character string. 

Character strings can be of different lengths. The portion of the original line following 
the text to be changed is moved to immediately follow the replacement string in the new 
line. If the second character string is missing, it is assumed to be a null string; the first 
string, and everything following, is eliminated from the line. (This is not the same as 
replacing the first string with blanks.) If the first character string parameter is the null 
string, the second string is inserted before the first character in the original line. 

A line must be present at the disk address equated to #@#BAD (bad-line buffer) if no 
line number parameter is present. The line is assumed to be in the active work file if a 
line number parameter is present. 
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#KCHAI\I 



KCH001 



SYNTAX CHECK AND ACCUMULATE PARAMETERS 



1 . Convert line number specified to binary using module C4BIN2. 

2. If character string(s) are specified, use SCSTRG to syntax check and 
move character strings. 

3. Set indicators for specified parameters. 

4. Exit to $CAERK {error program) if any syntax errors occur. 



Line Number 



Yes 



\ Specified S 






KCH102 


No 






FIND LAST BAD LINE 




READ LINE SPECIFIED 


1 . Read sector containing last bad 
line using $DISKN. 

2. Find EOS in bad line. 




1. Call GFINDN to locate requested 
line, 

2. Call GRABIT to read line. 



KCH112 



CONVERT DATA 



KCH110 




1 . Call module SDLIST to convert data items to external 
format. 



CHANGE CONTENT OF LINE 



1 . Compare character strings and/or make requested changes to line. 

2. If changed line exceeds 243 characters, output message via $SPRNT and 
exit. 

3. Make changes until EOS is encountered. 



KCH200 



#GUFUD 
Figure 3-22 
Via $CARPL 



SET UP CHANGED LINE 



1 . Move changed line to input line buffer ($$INLN). 

2. Print line via $SPRNT with carriage return if: 

• Changed line exceeds width, — 

• Change command was input from data recorder. ■ 

3. Print line via $SPRNT and enable user to enter data from keyboard 
via $$PRES. 

4. Set nucleus indicator to inhibit ready message. 



#GUFUD 
Figure 3-22 
Via $CARPL 



#ECMAN 
Figure 3-24 
Via $BLOAD 



Figure 3-36. CHANGE Keyword Program (#KCHAN) Flowchart 
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CONDITION Keyword Program-#KCNDI (Figure 3-37) 

• #KCNDI displays current system status information on the device assigned as system 
printer. 

• The assembly of #KCNDI contains these major source modules: 

KCNDIT-Mainline logic, Figure 3-37 
DLPRNT-IOCS for output, Figure 3-71 

#KCNDI displays the following current system status information derived from the con- 
tents of the system communication area (Figure 5-1) and disk areas (Figure 5-2). 



1. 


Whether or not a password is logged-on. 


2. 


Whether or not a disk label is logged-on. 


3. 


Status of the disk-label table. 


4. 


Date. 


5. 


Left margin and width values for the printer. 


6. 


System mode. 


7. 


Name of suspended BASIC program (if any). 


8. 


Status of the system work file. 


9. 


Information about the file in the system work file (name, status, type, number 




of lines, number of disk units, etc.). 


10. 


Status of the system configuration record. 


11. 


Information concerning the files currently allocated (device, GET/PUT filename, 




etc.) if any exist. 




#KCNDI 



SYNTAX-CHECK INPUT LINE AND PERFORM INITIALIZATIONS 



KCN100 



1. Exit to $CAERK to load #ERRPG (the error program) if a dash 
immediately follows the CONDITION keyword. 

2. Branch to KCN100 if EOS (preceded by optional blanks) follows the 
— keyword. 

3. Call SCKOUT (entry point at SCKOUT) to syntax-check the specified 
output device. 

4. Exit to $CAERK if SCKOUT finds a syntax error. 

■ 5. Set indicator in system communication area to ignore the roll- 
down key. 

6. Call SCKOUT (entry point at SCKDEV) to insure the presence and 
working-order of the output device specified, and ready the device for 
use. 



Figure 3-37. CONDITION Keyword Program (#KCNDI) Flowchart (Part 1 of 2) 
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KCN110 

ACCUMULATE AND PRINT SYSTEM STATUS INFORMATION 



1 . Check the appropriate indicators in the system communication area 
(NUCLES) for the following information: 

a) Password and disk label 

b) Disk labels on system 

c) Current date 

d) Left margin and width 

e) System mode 

f) Workfile status 

g) Configuration record 

2. Check the suspended program status by reading the suspended program 
sector at disk address #$#SSA. 

3. Check the workfile allocated information by reading the input/output 
record starting at disk address #@#IOS, 

4. Call DSVPRl, the DLPRNT interface program, to save or print a line. 

5. After all information has been secured and printed, branch to DLPRNT 
to wait for the last line (a blank line). 



(#GUFUD 
Figure 3-22 
Via $CARPL 

BR1080.2A 

Figure 3-37. CONDITION Keyword Program (#KCNDI) Flowchart (Part 2 of 2) 

DELETE Keyword Program-#KDELE (Figure 3-38) 

• Three options that #KDELE can perform are: 

1 . Delete a line number list from an active file in the work file (passes a delete 
parameter list, Figure 5-26, to #GUFUD to do this). 

2. Delete a file linked to a specified password. 

3. Delete all files, linked to a specified password, that are not pooled or protected. 
The password is also deleted if all files linked to it are deleted. 

• The assembly of #KDELE contains these major source modules: 

KDELET— Mainline logic, Figure 3-38 
DL2ICS-Disk logical IOCS, Figure 3-70 
STORIN-Null directory insert, Figure 3-79 
SFINDF-Find library file, Figure 3-75 
SGETDB— Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
SVOLID-Search volume-ID table, Figure 3-76 

As each file is deleted, the disk space occupied is linked into the null directory. #KDELE 
loads #SPACK, Figure 3-86, to pack the file library if the null directory is full. #SPACK 
loads, and returns to, #KDELE. 
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Yes 



#ERRPG 
Figure 3-17 
Via $CAERK 



1. Enter SLLIST for line-list 
syntax check and conversion. 

2. Supply list to GUFUDI. 

3. Set GUFUDI indicators. 



#GUFUD 
Figure 3-22 
Via $CARPL 



KDE200 



#ERRPG 
Figure 3-17 
Via $CAERK 



SYNTAX CHECK AND FIND 
FILE 



1. Enter SUFFER to syntax 
check File Specification. 

2. Syntax remainder of command 
line. 

3. Exit to $CAERK for invalid 
syntax or specification of * 
file. 

4. Enter SFINDF to search for 
file. 

5. Exit $CAERK if file or 
password is not found or if 
file is pooled or protected. 



KDE245 




PROCESS DELETION 



If blocks are linked, read in 
linked block until an unlinked 
block is found (DL2ICS). 
Index to last entry in unlinked 
block. 

Overlay "Deleted" entry with 
last entry. 

Relinquish space to null 
directory (STORIN) or pack 
directory if necessary 
(SPACKU). 

Write back modified user block 
(DL2ICS). 




KDE500 



SEARCH PASSWORDS AND 
GET FIRST USER BLOCK 



1. Prime SGETDB to search for 
logged on users password. 

2. Exit to $CAERK with 
hard halt if not found. 

3. Read in null directory for 
space relinquish (DL2ICS). 

4. Read in first user block for 
file process (DL2ICS) and 
also linked block. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-38. DELETE Keyword Program (#KDELE) Flowchart (Part 1 of 2) 
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GET ENTRY 



Index to an entry. 



KDE560 




KDE600 



1 . Relinquish space to null 
directory via STORIN or 
pack null directory if 
necessary via SPACKU. 
Print file deletion note via 
$SPRNT 



2. 



SAVE ENTRY 



Save entry and print NOT 
DELETED. 




KDE690 



Delete password directory entry 
and modify LOGON status and 
write directories. 



SAVE ENTRIES 



Save pooled or protected entries. 



WRITE DIRECTORIES 



Write null, user, and password 
directories. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-38. DELETE Keyword Program (#KDELE) Flowchart (Part 2 of 2) 
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DISPLAY Keyword Program-#KDISP, #KDOVR (Figure 3-39) 

• #KDISP syntax checks the DISPLAY command line, assuring valid syntax for the 
DISPLAY overlay #KDOVR. 

• #KDOVR displays the current values of program variables during a program execu- 
tion pause state or following the termination of program execution. 

• The assembly of #KDISP contains these major source modules: 

KDISPL-Mainline logic, Figure 3-39 
SCKOUT-Check output specification, no flowchart 

• The assembly of #KDOVR contains these major source modules: 

KDOVRL-Mainline logic, Figure 3-39 
DL4ICS-System work file IOCS, Figure 3-70 
DLPRNT-IOCS for output, Figure 3-71 

The DISPLAY command line is syntax checked. When correct syntax is assured, the 
overlay initialization is performed. If in pause mode, the virtual-memory pages in the 
paging module are returned to virtual memory. The symbol tables are placed in core, 
and the overlay #KDOVR is loaded. 

#KDOVR converts each specified variable or array element symbol to a virtual address. 
The element value at this address is retrieved from virtual memory, converted to display 
format, and displayed on the matrix printer, CRT, or system printer. The All parameter 
causes each scalar variable to be displayed. Symbol format 6 A(*) 9 causes each element in 
array A to be displayed according to current array dimensions. Symbol format *A$(*)' 
causes each element in array A$ to be displayed. 
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#KDISP 



KDI002 




KDISPL SYNTAX CHECKING 


1. Syntax check input lin 

2. Exit to $CAERK on er 

3. GotoSCKOUTtoset 


e. 

rors to load #ERRPG. 
output status device. 



KDI110 




Yes 



KDI112 



KDI120 



PUSH VIRTUAL MEMORY PAGES 



1 . Set parameter list for paging module. 

2. Enter IPGMDL to push virtual memory. 



COMPLETE OVERLAY INITIALIZATION 



1 . Get symbol and array tables. 

2. Get function and array tables. 

3. Exit to $RLOAD to load #KDOVR (the display 
overlay). 



#KDOVR 



KDI121 



SRLOAD 
Figure 3-14 



DISPLAY PROCESSING ROUTINE 



1 . Restore line pointer to first line variable. 

2. Set program for long precision if required. 

3. If 'AIM switch is on, display all scalar variables. 

4. Determine virtual address of the variable at the 
line pointer. 

5. Enter DL4ICS to get the value of the variable. 

6. Move the value to a conversion bucket. 

7. Convert the value to print format. 

8. Format the output buffer. 

9. Enter DLPRNT to print the output buffer. 

10. Increment line pointer to next possible variable. 

11. Exit to $CAERK on errors to load #ERRPG. 
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Figure 3-39. DISPLAY Keyword Program (#KDISP) Flowchart 
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EDIT Keyword Program-#KEDIT (Figure 3-40) 

• #KEDIT places a specified file into, or clears, the work file. 

• The assembly of #KEDIT contains these major source modules: 

KEDITN-Mainline logic, Figure 3-40 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB— Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-86 
SFINDF— Find library file, Figure 3-75 
GCLEAR-System work file clear, no flowchart 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work file IOCS, Figure 3-70 

Functions of #KEDIT are: 

1 . Move the specified file from the user, one-star, or two-star library file to the work 
file. The work file is cleared and #KEDIT exits if only a user filename is specified 
and cannot be found. 

2. Set the work file status indicators, $INDR1 in the nucleus communications area, 
to reflect the status of the work file. 

3. Load, and exit to, the compiler (#BCOMP) if the system command was RUN or 
STEP. 

4. The data buffer, used to transfer the file, overlays routines in #KEDIT that were 
used to find the file. 
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^ flKEDIT ^ 



KED500 

SYNTAX CHECK AND FIND THE FILE 



1 . Call SUFFER to extract filename from the com- 
mand statement located in the primary input buffer. 

2. Perform syntax checks on the command statement. 

3. Call SFINDF to find the requested file. 

4. Exit to $CAERK on errors. 

5. Mask inquiry request. 



KED700 




CHECK FILE FOUND, SET-UP TRANSFER 



1. Exit to $CAERK to load $ERRPG if errors. 

2. Set indicators in nucleus communications region. 

3. Call $SPRINT to print copied-to-work-file message. 

4. Call DL2ICS to start seek to library file. 

5. Initialize for transfer of library file to work area. 

6. For EDIT, call $SPRNT to print file messages. 



CREATE A NULL WORK FILE 


1. Call$SPRNTfornew-f 

2. CallGCLEARtoinitia 

3. Set indicators in nuclei 

4. Exitto$CARPLtorel( 


ile message. 

ize the work file. 

s communications region. 

Dad #GUFUD. 



KED100 



TRANSFER FILE TO WORK AREA 



1 . Establish available core for file transfer buffer. 

2. Using DL2ICS to read library file and DL4ICS to 
write work file transfer data. 

3. If FIT and/or I/O record are to be copied, write 
to work file using $DISKN. 

4. Exit to $CARPL to reload #GUFUD and I/O 
routines if command is EDIT. 




PRIME AND LOAD COMPILER 



1. Unmask inquiry requests. 

2. Call $DISKN to access first disk block for compiler. 

3. Set indicators in nucleus communications region. 

4. Exit to $RLOAD to load and execute compiler. 



#BCOMP 
Figure 3-1 19 
Via $R LOAD 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-40. EDIT Keyword Program (#KEDIT) Flowchart 
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ENABLE/DISABLE Keyword Program-#KENAB (Figure 3-41) 

• #KENAB modifies the type code of statements in the work file. 

• The assembly of #KENAB contains these major source modules: 

KENABL-Mainline logic, Figure 3-41 
GRABIT— Work file input, Figure 3-74 
GFINDN— Locate work file disk block, no flowchart 
DL4ICS-System work file IOCS, Figure 3-70 

If the DISABLE command is issued, KENABL modifies the type code of each statement 
in the line number list so that it is flagged and ignored in future compilations or input 
operations. 

If the ENABLE command is issued, the type code of each statement in the line number 
list is modified so that previously disabled statements are again enabled for compilation 
or input. If the line number list is omitted from the ENABLE command, all previously 
disabled statements currently in the work area are enabled. 
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#KENAB 



SYNTAX CHECK AND CONVERT LINE NUMBERS 



1 . Exit to $CAERK {to load the error program) if the 
keyword was immediately followed by a dash. 

2. Call SLLIST to syntax check and convert the line- 
number-list, if one is specified. 

3. Exit to $CAERK if SLLIST found an error. 



KEN135 




KEN115 



ENABLE OR DISABLE SPECIFIED LINES 



4. 



Move a line number of GFILNO for GFINDN. 
If this line js followed by EOS, branch to KEN1 50. 
If this line is followed by a dash (indicating a line- 
number range), set range indicator on, set pointer 
to reference high limit in range, branch to KEN170 
to modify the type code, branch to KEN 155 if 
EOS is indicated, else branch to KEN 135. 
Else, branch to KEN170 to modify the type code 
and branch to KEN135 to get the next line 
number. 



ENABLE THE ENTIRE WORK FILE 



Exit to $CAERK if DISABLE was the specified 
keyword. 

Move Tine number X'0000' to GFILNO for 
GFINDN. 

Call GFINDN to prime buffers for GRABIT. 
Set GRABIT code to skip statements. 
Set ENABLE bit on in statement type code. 
(KEN125). 



Exit to KEN1 55 if EOF is indicated. 
Call GRABIT to get next source line. 
Branch to KEN125. 



KEN150 



Branch to 
KEN170to 
Modify the 
Last Line 



KEN170 



KEN170 



KEN155 , 



Set GRABIT 
Code to 
Write-Back 
Only 



GR/ 


\BIT 


Writ 
last 


e back 
ine 



ROUTINE TO MODIFY TYPE CODE-part I 



1. Save return address. 

2. Mask against interrupts. 

3. Call GFINDN to find the next line number. 

■ 4. If this is the line number to modify, branch to 
KEN185. (this statement labelled KEN180) — 
5. If this number is greater than the one specified, 
branch to KEN210. 
"6. Else, branch to GRABIT to get the next source 
line. {GRABIT's code set to skip last statement). 
7. Branch to KEN180 to test the new line number. 



KEN185 



#GUFUD 
Figure 3-22 
Via $CARPL 



ROUTINE TO MODIFY TYPE CODE-part II 



1. Set appropriate indicator on in type code. 

2. Go write back line, if a range is not indicated. 1 — 

3. If range is indicated, continue processing lines. 

4. (label KEN210) If range is not indicated, exit 
from loop. ^ ^— - — — — — 

5. If the referenced number is in the range, set on 
the appropriate type code indicator and get next 
source line. 

7. If entire range has been processed turn range 
indicator off. 

8. Call GRABIT (with code to write back only) to - 
write back the modified line. 

9. Return to point where called. « 
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Figure 3-41. ENABLE/DISABLE Keyword Program (#KENAB) Flowchart 
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ENTER Keyword Program-#KDI\ITE (Figure 342) 

• #KDNTE sets the system mode of operation to disk system management program, if 
it is available on the system. 

• The assembly of #KDNTE contains these major source modules: 

KDNTER-Mainline logic, Figure 3-42 
SUPDAT— Statistical error recording, no flowchart 

If the disk system management program (SCP) is specified, and it shares the same volume 
as the current BASIC system program area, the disk system management IPL bootstrap 
program is loaded from cylinder 0. 



#KDNTE 



SYNTAX CHECK INPUT LINE 



1. Exit to $CAERK to load ^ERRPG (the error program) if a dash 
Immediately follows the keyword. 

2. Exit to $CAERK if no parameter is specified. 

3. Exit to $CAERK if a parameter other than SCP is specified. 




1. Read volume label from disk used to IPL system. 

2. Exit to $CAERK if disk system management 
program is not available on this disk. 

3. Read disk system management program nucleus 
initialization program from disk into core 
location X'1200\ 

4. Branch to SUPDAT to update the error log 
tables on disk. 

5. Set disk system management program as primary 
IPL in core-resident nucleus initialization program. 

6. Turn off CRT if it is on system. 



Exit to disk system 
management 
program , 



Figure 3-42. ENTER Keyword Program (#KDNTE) Flowchart 



EXTRACT Keyword Program-#KEXTR (Figure 3-43) 

• #KEXTR saves user specified line numbers in the work file. 

• The assembly of #KEXTR contains this major source module: 

KEXTRC-Mainline logic, Figure 3-43 

#KEXTR retains the line number list in the active work file by deleting all unwanted 
line numbers. The line number list is converted to a delete parameter list (refer to Figure 
5-26). The actual deletion of the lines from the work file is performed by #GUFUD, 
Figure 3-22. 
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#KEXTR 



SYNTAX-CHECK INPUT LINE AND CONVERT LINE-NUMBER LIST 



1. Exit to $CAERK to load the error program (#ERRPG) if a dash 
immediately follows the keyword, or if no line-number list is specified. 
Set the error code in $CAERR. 

2. Call SLLIST to syntax-check the line-number list and to create a line- 
number table, SLLINE. 

3. Exit to $CAERK to load #HRRPG (Figure 3-17) if SLLIST finds an 
error condition. 



PROCESS THE 'EXTRACT'ION-FORM A 'DELETE' LIST 



1 . Initialize one pointer (PT1 ) to the first line number in SLLINE and 
another pointer, PT2, to the first available byte in the secondary input 
buffer (X'ICOO'). 

2. If the first entry in SLLINE is the range 0 through 9999 , exit to 
$CARPL to load #GUFUD (Figure 3-22). 



X Is \ 
Yes / The First \. No 



KEX100 


Line Number 
Zero / 


KEX118 






LOW ORDER SUBROUTINE 




HIGH ORDER SUBROUTINE 




1 . If location referenced by PT1 + 1 is a dash, add 
3 to PT1. 

2. Set the line number referenced by PT1 at the loca- 
tion referenced by PT2. 

3. Add 1 to the line number at the location refer- 
enced by PT2. 

4. If PT1 + 1 is referencing an EOS, go to EXIT 
— routine. 






1 . Move 0 to the location referenced by PT2. 

2. Save line number referenced by PT1 . 

3. Subtract 1 from saved line number. 

4. If saved line number equals line number referenced 
by PT2, go to LOW ORDER subroutine. 

5. If saved line number is less than the line number 
referenced by PT2, subtract 2 from PT2 and 
enter the LOW ORDER subroutine. 

6. Else, set a dash in the location referenced by PT2 
+ 1 ,add 3 to PT2, and set saved line number in 
location referenced by PT2. 

7. Enter the LOW ORDER subroutine. 







KEX500 



EXIT ROUTINE 



1. If the line number referenced by PT2 is less than 
9999, add 3 to PT2. 

2. If the line number referenced by PT2 is greater 
than 9999 , subtract 2 from PT2. 

3. Set an EOS in the location referenced by PT2 + 1. 

4. Exit to $CAERK if the delete list is larger than one 
sector. 

5. Set the nucleus indicator to DELETE on. 

6. Set the nucleus indicator to load #GUFUD only. 



C#GUFUD 
Figure 3-22 
Via $CARPL 

Figure 3-43. EXTRACT Keyword Program (#KEXTR) Flowchart 
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GO Keyword Program -#KGOSL (Figure 3-44) 

• #KGOSL continues or aborts the execution of a BASIC program when the program 
is in an execution pause state. 

• The assembly of #KGOSL contains this major source module: 

KGOSLO-Mainline logic, Figure 3-44 

#KGOSL restores core from the execution save area via the restore function of the sys- 
tem nucleus ($PAUSD). Execution mode indicators are set in the system communication 
area as a result of user specified parameters. 



^ #KGOSL 



KGO100 



SYNTAX CHECK TO DETERMINE TYPE OF GO COMMAND 



1. Exit to $CAERK to load #ERRPG if program is not in pause state. 

2. Enter SCAN IT to scan across blanks. 

3. Exit to $CAERK to load #ERRPG on syntax errors. 



KGO120 



SET ON RESPECTIVE INDICATORS, RESTORE CORE FROM DISK 



1. If TRACE parameter, set on trace indicators in Nucleus if original 
mode was trace and exit to $RSTR to restore core from disk. Exit to 
$CAERK to load #ERRPG if original mode is not trace. 

2. If ABORT parameter, set on abort indicators in the Nucleus and exit 
to $RSTR to restore core from disk. 

3. If RUN parameter, set on run indicators in Nucleus and exit to 
$RSTR to restore core from disk. 

4. If STEP parameter, set on step indicators in Nucleus and exit to 
$RSTR to restore core from disk. 

5. If no parameters, exit to $RSTR to restore core from disk. 

6. If no valid parameter found, exit to #ERRPG via $CAERK to print 
error message. 
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$RSTR 
Figure 3-12 



Figure 3-44. GO Keyword Program (#KGOSL) Flowchart 
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HELP Keyword Program-#KHELP (Figure 3-45) 

• #KHELP displays text from the help text disk file on the matrix printer, CRT, or 
system printer. 

• Checks release level of help text file against a built-in constant defining the expected 
release level. 

• The assembly of #KHELP contains these major source modules: 

KHELPN— Mainline logic, Figure 3-45 
DLPRNT-IOCS for output, Figure 3-71 
GRABIT-Work file input, Figure 3-74 
DL2ICS-Disk logical IOCS, Figure 3-70 

#KHELP searches a table of keywords (refer to Figure 5-21) which contains entries made 
up of (1) the length of a keyword, (2) a keyword, and (3) a relative address in the help 
text disk file. This address points to the text to be displayed for the corresponding key- 
word. 

When there is no keyword parameter, a predetermined section of text is displayed and 
a choice of responses for further information is shown. Input is enabled and the input 
character is used to index the relative addresses in the EOF record. All nonterminating 
help files are handled in this manner. Help files are displayed until a terminal file is 
encountered via #KHELP or until the function is interrupted via an inquiry request. 

Refer to Figure 5-21 for the format of help text. 
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SYNTAX CHECK AND SET UP OUTPUT DEVICE 



1. Check for valid delimiter between command and first parameter. 

2. Enter SCSTRG to check for unbalanced quotes and return character 
string. 

3. Remove imbedded blanks from character string and save packed form. 

4. Enter SCKOUT to check for CRT or PRINTER specification. 

5. If no keyword was specified, enter SCKOUT at SCKDEV to check 
the validity of the output device and set indicators. 

6. On errors, exit to $CAERK to load #ERRPG. 



KHE530 




Yes 



FIND THE DISK WHICH CONTAINS THE HELP TEXT 



Read the VOLUME LABEL from disk in the order F1, F2, R1, R2 and 
check indicator for HELP TEXT on disk. 

After locating HELP TEXT (on disk) get address from VOLUME 
LABEL and enter DL2ICS to read HELP TEXT keyword table into 
buffer KHETAB. 

If HELP TEXT was not found exit to $CAERK to load #ERRPGM. 



KHE600 



#ERRPG 
Figure 3-17 
Via $CAERK 



FIND THE REQUESTED TEXT 



1 . Read keyword table at head of text into core using DL2ICS. 

2. Search keyword table for specified keyword. 

3. If it is not found exit to $CAERK to load #ERRPG. 



BRING REQUESTED TEXT INTO CORE 



1. Prime buffers for GRABIT using DL2ICS. 

2. Enter GRABIT to retrieve logical records. 

3. If a valid keyword was specified, enter SCKOUT at SCKDEV to check 
the validity of the output device and set indicators. 




PRINT TEXT 



1. Print 1 line using DLPRNT. 

2. Get next record. 



ALLOW MULTIPLE CHOICE 
RESPONSE 



1. Wait for character input ($$PRES). 

2. If input character is invalid print 
message using $SPRNT and wait for 
character input again. 



Figure 3-45. HELP Keyword Program (#KHELP) Flowchart 
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KEYS Keyword Program-#KKEYS (Figure 3-46) 

• #KKEYS lists, assigns, or restores the functions of the command keys. 

• The assembly of #KKEYS contains this major source module: 

KKEYSP-Mainline logic, Figure 3-46 

Depending on the parameters specified, #KKEYS lists the functions currently assigned 
to the available command keys, assigns a function to an available command key, or 
restores one or all of the IBM -assigned functions to the available command keys. A 
command key is available if it is one of the first 1 1 command keys and is defined in the 
current configuration record. 

The format of the command key table (##CKTB) is shown in Figure 5-27. This table 
resides in the system program file. A list of the IBM-assigned functions for command 
keys 1 through 11 is contained in Figure 5-28. 
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^ #KKEYS 



READ TABLE 

Call $LOADR to read the command key 
table (##CKTB) into core. 



SYNTAX CHECK LINE 


1. 


Call SCANIT to bypass blanks. 


2. 


Call C4BIN2 to convert the command key number to 




binary if one is specified. 


3. 


Call SCSTRG to analyze the character constant if one 




is specified. 


4. 


Exit to $CAERK to load the error program if an invalid 




parameter or too many parameters are found, or if one 




of the subroutines detects an error. 



Function 
requested 




List 

all keys 



LIST THE COMMAND KEY TABLE 



1. Set a pointer to the start of the 
command key table. 

2. 1 nitialize a counter to the number 
of available command keys. 

3. Call $SPRNT to print one com- 
mand key number and its 
corresponding command. 

4. Decrement the counter by 1 ; 
continue printing until the 
counter is 0. 



Restore 
single key 



Restore 
all keys 



RESTORE ALL COMMAND KEYS 



1. Set a switch to restore all 
command keys. 

2. Initialize command key 
number to 1. 



RESTORE SPECIFIED COMMAND KEY 



1. Find the command in the internal 
table that corresponds to the command 
key. 

2. Set the command length in the com- 
mand key table ##CKTB (keys 1, 4 # 
or 7 are set to 0) from the internal 
table. 

3. Move the command text from the 
internal table to the command key 
table. 

4. If the switch to restore all command 
keys is set, increment the command 
key number and repeat this block until 
all available command keys are restored 
from the internal table. 

5. Write the command key table back to 
disk via $LOADR. 



#GUFUD 
Figure 3-22 
Via $CARPL 



Assign 
single key 



ASSIGN A FUNCTION TO A 
COMMAND KEY 



4. 



Exit to $CAERK to load 
the error program if the 
character constant exceeds 
90 characters or if it con- 
tains only blanks. 
Set the length of the com- 
mand in the command key 
table. 

Move the command text to 
the table. 

Write the command key 
table back to disk via 
$LOADR. 



Figure 3-46. KEYS Keyword Program (#KKEYS) Flowchart 
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LIST Keyword Program~#KLIST, #KLLAY (Figure 3-48) 

• #KLIST displays any type of file contained in the file library (system library file). 

• The assembly of #KLIST contains these major source modules: 

KLISTN-Mainline logic, Figure 3-48 
GFINDN— Locate work file disk block, no flowchart 
GRABIT— Work file input, Figure 3-74 
SDLIST-List data file, no flowchart 
DLPRNT-IOCS for output, Figure 3-71 
DL4ICS-System work file IOCS, Figure 3-70 

• The assembly of the overlay #KLLAY contains this major source module: 

DCDOUT-Card punch IOCR, Figure 3-72 

| #KLIST displays BASIC programs, keyboard-generated files, procedure files, or program- 
generated files on the printer, punch, or CRT. 

If the file is listed on the CRT, the user may rollup, rolldown, or popup the file (this 
does not apply to program-generated files). The user may also specify line lists for start- 
ing and ending the LIST function (for CRT, only the initial line reference is used). 

A list control block (LCB) (Figure 3-47), 20 bytes in length and containing all infor- 
mation necessary to control the output, is created from the parameters'of the LIST 
statement. When the output device is the CRT, a CRT line segment table (Figure 3-47) 
is maintained from elements in the LCB. If the work file contains a program-generated 
file, logical lines are constructed and sent sequentially to the specified devices until 
end of file is encountered. A logical line is device dependent; for example: 

Device Line Length 

5496 Data recorder 96 

Matrix printer (Right margin-left margin) 

CRT 64 

System printer 64 

The rolldown key (command key 14) is not recognized for program-generated files. 

If the work file contains a BASIC program, the file is sent to the specified devices 
under control of the line number list. When CRT is specified, only the initial line ref- 
erence is used. However, the user can rollup, popup, or rolldown the file. Initially, the 
first 14 lines are placed on the screen. From this point, the file may be rolled as desired; 
interruptions are accepted after each line segment is displayed. If end of file on rollup 
or beginning of file on rolldown is encountered, the program waifs for an interruption. 
The inquiry request key must be activated to terminate the listed function. 

When the work file contains a keyboard-generated file, the data elements are converted 
from internal floating point to an optimum external format. Each line is then handled 
the same as a BASIC program line. Disabled BASIC statements and lines are shown with 

• preceding the line number. 

No line number is punched if the NO-NUM parameter is specified, the output specified 
is. CARD, and the work file contains a keyboard-generated file. 

When the parameter CARD is specified, #KLLAY is read into the I/O portion of 
core. #KLLAY contains the card punch IOCR (DCDOUT) and overlays the card 
reader I/O routine #DREAD. 
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Hexadecimal 
Displacement 


Name 


Length 
(bytes) 


Explanation 


00 


File condition 
code 


1 


Status indicator value: 
X'OO'-Go 

X'OT— Line list exhausted 
X 02 —Beginning of file 
X'03'-Endof file 
X'04'-No line list 


01 


Start line 


2 


Beginning line number of a loop. 


03 


Increment 


2 


+1 (X'0001 '), except for rolldown, 
then-1 (X'FFFF') 


05 


Control character 


1 


X'4F'-Rolldown 
X'CO'-Rollup or print 


06 


File line length 


1 


Length of current work file line. 


07 


Buffer address 


2 


Current address, into line buffer area, 
that is used in PPL passed to DLPRNT. 


09 


CRT mode 


1 


Rolldown-X'02' 
Rollup-X'Or 


OA 


Current line 


2 


Current line number being analyzed. 


OC 


CRT line segments 
out 


1 


Count of number of CRT line segments 
displayed from current line. 


OD 


Maximum CRT line 
segments 


1 


Count of number of CRT line segments 
in Tile line being processed (Iengtn/b4 + 
1). 


OE 


CRT mode change 


1 


Indicates a change from rollup or popup 
to rolldown and the reverse. 


OF 


First line number 


2 


First line number in work file. Detect 
beginning of file when file is in rolldown 
mode. 


11 


Initial call 
indicator 


1 


X'Or-Firsttime 
X'OO'-Not first time 


12 


Stop line 


2 


Ending line number of a line loop. 









CLST 


-One 5-Byte Entry per CRT Line (70 bytes total) 






1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 




CRT Line Segment Entry 


Mode 


Current Line 


CRT Line 
Segments Out 


Maximum CRT 
Line Segments 


0 


1 


2 


3 


4 ! 



Mode-From hexadecimal displacement 09 in LCB 

Current Line-From hexadecimal displacement OA in LCB 

CRT Line Segments Out-From hexadecimal displacement OC in LCB 

Max CRT Line Segments-From hexadecimal displacement OD in LCB 

BR2671 

Figure 3-47. List Control Block (LCB) and CRT Line 
Segment Table (CLST) 
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SYNTAX CHECK LINE 



1. Syntax check and validate parameters specified using modules 
SCANIT (scan blanks) SLLIST (convert line number list). 

2. If errors are found, set indicative error message at $CAERR and exit to 
$CAERK. 

3. Determine device specified and set indicator in DLPRNT. 



Yes 



LOAD CARD PUNCH IOCR 



Call DL2ICS to overlay #DREAD with 

the card punch IOCR, DCDOUT (#KLLAY). 




Program Generated 



KLI380 




PROGRAM GENERATED FILE 


1 . Call SDLIST to read DL4ICS, convert the data 
items, and output the file via DCDOUT (card 
output) or DLPRNT (CRT or Matrix Printer). 

2. At end of file, exit to $CARPL to reload #GUFUD. 







#GUFUD 
Figure 3-22 
Via $CARPL 



KLI070 
SET CRT INDICATORS 



2. 



Call SCKDEV to set $CMDKY 
only and enable keyboard via 
$$PRES. 

Call GFINDN and G RABIT to 
determine first line in file. 




Basic or Keyboard Data File 



KLI106 



OUTPUT OF DATA OR BASIC FILES 



1 . Retrieve requested lines via GRABIT and output 
via DLPRNT or DCDOUT. 

2. For data files, call SDLIST to convert each line to 
external representation. 

3. If CRT specified, keep track of which lines are pn 
the screen so the roll-up, roll-down and pop-up 
interrupts can be handled. 

4. If no number is specified, suppress line number for 
keyboard data files going to card. 

5. Indicate line disability with an asterisk in column 
one (1 ). 

6. At end of file, exit to $CARPL to reload 
#GUFUD, or wait for inquiry request if CRT is 
being used. 



Figure 348. LIST Keyword Program (#KLIST) Flowchart 



#GUFUD 
Via $CARPL 
Or $CRIPL 



BR1091A 
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LISTCAT Keyword Program-#KCTLO (Figure 349) 

• #KCTLO displays user-specified directory information from the file library (system 
library file). 

• The assembly of #KCTLO contains these major source modules: 

KCTLOG-Mainline logic, Figure 3-49 
DL2ICS-Disk logical IOCS, Figure 3-70 
DLPRNT-IOCS for output, Figure 3-71 
SCKOUT -Check output specification, no flowchart 
DSVPRI— DLPRNT interface, no flowchart 

#KCTLO displays the following directory information on the matrix printer, CRT, or 
system printer, if ALL is specified (otherwise, only the filename and file ID are 
displayed): 

1 . Filename— File ID 

2. File type 

3 . Date the file was last modified 

4. Count of lines contained in the file 

5. Count of sectors the file occupies 

6. Precision of the file 

7. Pooled status 

8. File protection status 

9. Open/close status 
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#KCTLO 



KCT050 




SYNTAX CHECK AND ESTABLISH PRINT DEVICE 


1. Determine request type (i.e., *, **, or ALL). 

2. Enter SCKOUT to syntax check output device 
requested (KCT175). 

3. Enter SCKDEV to set indicators for output 
device (KCT200). 

4. Exit to $CAE R K for errors. 

5. Set indicator for 'ALL' (KCT125). 







KCT400 




KCT250 



ESTABLISH USER 



1. Exit to $CAERK if user not logged on. 

2. Prime print routine with user block. 

3. Print (KCT500). 




KCT500 



SEARCH VOLUME-ID TABLE AND PRINT 
FILENAMES 



1. Determine which disks have libraries. 

2. Print volume-ID (KCT430). 

3. Branch to print subroutine (KCT500) to print 
filenames and headers. 

4. Exit to $CAERK if no disk libraries. 



KCT475 




EXIT PROCESSING 


1 . Turn off comm. 

2. Execute WAIT 1 


and keys and lights. 
For print. 



#GUFUD 
Figure 3-22 
Via $CARPL 




D 



PRINT FILENAME AND HEADER 



1. Read in linked block if any. 

2. Print (DLPRNT) "no files" if none. 

3. Print filename and header via DSVPRI. 




PRINT STATUS (via DSVPRI) 



1. Date last modified. 

2. Disk units. 

3. Number of lines. 

4. File type. 

5. Precision 

6. Open, pooled, or protected. 




BR1092 



Figure 3-49. LISTCAT Keyword Program (#KCTLO) Flowchart 
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LOGON/OFF Keyword Program-#KLOGO (Figure 3-50) 

| • #KLOGO is used to define a password and volume (new or old) to be used for 
subsequent operations. OFF is used to cancel the current password and volume. 

• The assembly of #KLOGO contains these major source modules: 

KLOGON-Mainline logic, Figure 3-50 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
DL2ICS-Disk logical IOCS, Figure 3-70 
SURCHN-Search null directory, Figure 3-81 
SUPD AT— Statistical error recording, no flowchart 

#KLOGO clears the saved bad line area (used by CHANGE), deletes the file in the sys- 
tem work area, and updates the statistical data recorder on the logged-on volume. It also 
clears the CRT if it is configured. 
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KLO200 




KLO300 



SYNTAX AND CLEAR PRINT DEVICE 



1. Syntax check command line. 

2. Exit to $CAERK for errors. 




No 



SYNTAX CHECK; SEARCH PASSWORD 
DIRECTORY 



1. Syntax command line: 

a) Enter SALPH8 for password check. 

b) Enter SALPH6 for volume-ID if specified. 

c) Check for 'NEW or 'OLD' if specified and set 
indicator. 

d) Exit to $CAERK for syntax errors. 

2. Search password directory: 

a) Prime SGETDB for search only. 

b) Branch to SGETDB. 



CLEAR CRT 



Clear screen 
of CRT 



PRIME NUCLEUS 



1. Setup$PASWD. 

2. Set up $FILIB. 

3. Setup$USRDR. 

4. Set no work file. 



KLO800 



PROCESS BAD LINE 



1 . Move E nd of Statement I nd icator 

2. Write to "BAD SYNTAX 
LINE" disk save area via 
DL2ICS. 




PROCESS TABLES 



Update error 
tables via SUPDAT 



CLEAR PRINT DEVICE 



Eject clean print page if printer 
is system print device (only 
OFF). 







No 


f #ERRPG N 
Figure 3-1 7 ) 
\^ Via $CAERK J 


CREATE PASSWORD AND USER ENTRIES 


1. Prime disk routine (DL2ICS) and read null 
directory. 

2. Search null directory (SURCHN) for two sector 
data block and error exit to $CAERK if not found. 

3. Build new password entry and write password and 
null directories back to disk via (DL2ICS). 

4. Create user block and write to disk (DL2ICS). 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-50. LOGON/OFF Keyword Program (#KLOGO) Flowchart 
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MERGE Keyword Program-#KMERG (Figure 3-51) 

• #KMERG merges statements from a library file with the file in the system work file. 

• The assembly of #KMERG contains these major source modules: 

KMERGE -Mainline logic, Figure 3-51 
GRABIT— Work file input, Figure 3-74 
GPUTIT-Work file output, Figure 3-73 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB— Search password directory, Figure 3-77 
SRCHFN— Search user directory, Figure 3-78 
SFINDF— Find library file, Figure 3-75 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work file IOCS, Figure 3-70 

Functions of #KMERG are: 

1. Merge statements from a saved library file with the active file in the system work 
file. 

2. Write the merged file temporarily in virtual memory and build a line number 
table in core. 

3. Load and exit to #KOVME, Figure 3-61 , to renumber the merged file and write 
it back to the system work file. 
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#KMERG 



#KMERG\ 



SYNTAX CHECKING 



1. Call SUFFER to syntax check filename. 

2. Collect numeric parameters. 

3. Call C4BIN2 to convert numeric parameters to 
binary. 



KME180 




FETCH SAVED FILE INFORMATION 



1. Call SFINDF to find saved file. 

2. Check protection and compatibility of files. 

3. Set up DPL and file size for DL2ICS use. 




Yes 





J No 


KME380 





TRANSFER FIRST PORTION OF WORK AREA FILE 



1. Call GRABITto return work area file line. 

2. Call GPUTIT to write line to virtual memory. 

3. Put line number in table. 

4. Repeat until breaking point reached. 

5. Save GRABIT and buffers on disk. 



#ERRPG 
Figure 3-17 
Via $CAERK 



KME220 

TRANSFER SAVED FILE TO VIRTUAL MEMORY 



1. Reinitialize GRABIT to saved file. 

2. Call GRABIT to return file lines. 

3. If file line is within range call GPUTIT to write to 
virtual memory. 

4. Put line number in table, set on bit 1 . 

5. Repeat until high line number is reached. 



KME300 



TRANSFER LAST PORTION OF WORK AREA 
FILE 



1. Restore saved GRABIT. 

2. Call GRABIT to return work area file line. 

3. Set on bit 0 and put line number in table. 

4. Call GPUTIT to write file line to virtual memory. 

5. Continue until EOF encountered. 



(#KOVME 
Figure 3-61 
Via $R LOAD 

BR1094 

Figure 3-51. MERGE Keyword Program (#KMERG) Flowchart 
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MOUNT Keyword Program-#KMOUN (Figure 3-52) 

• #KMOUN notifies the system that a different volume is mounted on Rl or R2. 

• The assembly of #KMOUN contains these major source modules: 

KMOUNT-Mainline logic, Figure 3-52 
SUTOBA-Switch system mode, no flowchart 

MINITL-Read the disk label if the disk has been initialized, no flowchart 

#KMOUN reads the volume label to verify that the mounted volume-ID matches the user 
specified volume-ID. If the drive is Rl, and if Rl and Fl both contained valid system work 
areas before Rl was removed, the volume label of the disk specified in the MOUNT command 
must also contain a valid system work area; otherwise, an error message results. The volume- 
ID table in the nucleus communications area (refer to Figure 5-9) is updated. If any scratch file 
entries exist in the VTOC on the pack being mounted, #KMOUN deletes them. 
The disk drive must be ready before #KMOUN can read the volume label. 

^ #KMQUN 



SYNTAX CHECK LINE AND DISK SPECIFICATION 

1. Exit to $CAERK (to load #ERRPG, the error program) if MOUNT|is 
not followed by a blank. 

2. Call SALPHA to check for a syntactically correct volume-ID. 

3. Exit to $CAERK if the volume-ID is invalid. 

4. If next character is EOS or Rl, set the indicator for R1 . 

5. If R2 is specified, set the indicator for R2. 

6. If neither EOS, R1 , or R2 is found following the volume-ID, exit to 
$CAERK. 

7. Exit to $CAERK if R2 is specified and drive 2 is not present on the 
system. 



KMO200 




CHECK VOLUME-ID'S AND WORK AREA INDICATORS 



1. If the volume-ID entry ($VOLID in the nucleus) for the specified disk 
is non-zero, exit to $CAERK. 

2. Branch to MINITL to read the volume label sector of the specified 
program. 

3. Exit to $CAERK if the volume-ID in the volume label is not identical 
to the one specified in the command. 

4. If R1 is the specified disk, set the nucleus indicator for no work area on 
R1, according to the indicator for R1 work area found in the volume 
label. 

5. If R1 is specified, branch toSUTOBA to check the system mode. 



KM0375 




SET NUCLEUS INDICATORS AND EXIT 



1 . Mask against interrupts. 

2. Move the volume-ID to the $VOLID table in the nucleus communica- 
tions area. 

3. Move the cylinder byte of the disk address of the file library to the 
$VOLID table. 

4. If R1 was specified, and SUTOBA found an error condition, exit to 
$CAERK. 

5. Set off the indicator which allows MOUNT or INITIALIZE commands 
only. ($MOUNT in $INDR3 in the nucleus.) 



(#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-52. MOUNT Keyword Program (#KMOUN) Flowchart 
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PASSWORD Keyword Program-#KPASW (Figure 3-53) 

• #KPASW changes the current password and the password directory to the password 
specified by the PASSWORD command. 

• The assembly of #KPASW contains these major source modules: 

KPASWD-Mainline logic, Figure 3-53 
DL2ICS-Disk logical IOCS, Figure 3-70 
SGETDB— Search password directory, Figure 3-77 

#KPASW searches the password directory, checking to see that the new password is not 
a duplicate, before updating and writing back the directory. The specified password 
replaces the current password entry in the password directory. 



#KPASW 



KPA010 




SYNTAX CHECK INPUT COMMAND 


1. Call DL2ICS to read password directory. 

2. Call SALPHA8 to decode new password. 

3. Call SGETDB to find current password. 

4. Call SGETDB to find new password. 

5. Exit to $CAERK to load error program if errors. 


Dupl 


icate \ Yes 



Password 



No 



KPA140 



#ERRPG 
Figure 3-17 
Via $CAERK 



CHANGE CURRENT PASSWORD 



1. Set new password in place of old in password 
directory. 

2. Change current password in nucleus. 

3. Call DL2ICS to write password directory back 
to disk. 

4. Exitto$CARPLtolead#GUFUD. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-53. PASSWORD Keyword Program (#KPASW) Flowchart 
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PROTECT Keyword Program-#KPRTC (Figure 3-54) 

• #KPRTC sets or cancels file protection on user library files or pooled files. 

• One-star and two-star data files cannot be protected. 

• The assembly of #KPRTC contains these major source modules: 

KPRTCT-Mainline logic, Figure 3-54 
DL2ICS-Disk logical IOCS, Figure 3-70 
SRCHFN-Search user directory, Figure 3-78 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB— Search password directory, Figure 3-77 
SFINDF— Find library file, Figure 3-55 

#KPRTC sets the protect status bit in the user, pooled, or two-star filename directory. 
The selection of the status is determined by the user with the ON or OFF parameter, 
with ON being the default condition. 

If a pooled filename is specified, a current user must be logged on and the filename 
must be in his user directory to qualify him as the creating user. If the name is in his 
directory, the protection of the entry in the pooled directory is changed (protected or 
unprotected). 

When a file specification is entered, #KPRTC searches the password directory, and 
then the user directory, for the filename. The status bit is set if a match is made. When 
a two-star filename is specified, the protect status can only be set ON. 



^ #KPRTC 

KPRTCT 



SYNTAX CHECK AND FIND SPECIFIED FILE 



1 . Call SUFFER to decode input line buffer. 

2. Call SFINDF to find specified file. 

3. Exit to $CAERK if errors. 



KPR180 



SET SPECIFIED PROTECT STATUS 



#ERRPG 
Figure 3-17 
Via $CAERK 



1. If ** file, PROTECT OFF invalid. 

2. If * or ** data file, go to $CAERK for error 
program. 

3. If *file, insure current user was creator. 

4. Set specified status. 



KPR220 



OUTPUT USER Dl RECTORY 



1 . Call DL2ICS to write directory to disk. 

2. Exit to $CARPL to reload #GUFUD. 



C#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-54. PROTECT Keyword Program (#KPRTC) Flowchart 
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PULL/POOL Keyword Program-#KPOOL (Figure 3-55) 

• #KPOOL adds or removes a specified filename to or from the one-star library 
directory. 

• The assembly of #KPOOL contains these major source modules: 

KPOOLN-Mainline logic, Figure 3-55 
SRCHFN-Search user directory, Figure 3-78 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SFINDF-Find library file, Figure 3-75 
DL2ICS-Disk logical IOCS, Figure 3-70 
STORIN-Null directory insert, no flowchart 
STUFID-User directory insert, no flowchart 
SURCHN-Search null directory, Figure 3-81 

#KPOOL loads #SPACK, Figure 3-86, to pack the file library if the null directory is full. 
#SPACK loads, and returns to, #KPOOL. 

If the POOL keyword command is issued, KPOOLN inserts the specified user file into 
the one-star on the disk containing the user library, thus making it available to all of the 
system (i.e., an entry for the file is created in the one-star library and an indicator is set 
in the user library, allowing the "pooled" use of the file). 

If the PULL keyword command is issued, KPOOLN removes the specified user file 
from the one-star library on the disk containing the user library (i.e., the one-star library 
entry for the file is deleted and the "pooled" indicator for the file is set off). 
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KPO150 



SYNTAX CHECK LINE AND 
SEARCH FOR FILE 



Call SUFFER to syntax check 

the file-specification. 

Exit to #ERRPG via $CAERK 

for error or for a * or ** 

password. 

Call SFINDF to search for the 
file in the user directory. 
Exit to #ERRPG via $CAERK 
if the file is not found by 
SFINDF. 

Exit to #ERRPG via $CAERK 
if the file is pooled on a 
pool command. 
Exit to #ERRPG via $CAERK 
if the file is not pooled on a 
pull command. 



KPO280 



SEARCH THE POOL 
DIRECTORY 



Save the user directory disk 
block that contained the 
filename. 

Call SFINDF to search the 
pool directory. 



Pool 



CREATE POOL DIRECTORY 
ENTRY 



1 . Set up the entry for pool 
directory. 

2. Store entry in directory via 
STUFID. 

3. Set pooled indicator in user 
directory block. 

4. Restore user directory block 
to disk via DL2ICS. 







Yes 


SEARCH FOR END OF POOL 
DIRECTORY 




Prime SFINDF to search for last 
entry by supplying an invalid 
filename. 








No 


KPO470 




MODIFY BLOCK 




1. Move last entry over pulled 
entry. 

2. Decrement count of entries. 










KPO700 



KPO800 




STORE NULL E 


LOCK 


1. Zero forward 
block. 

2. Store null blc 


link in other 
ckviaSTORIN. 



KPO650 



Yes 



PROCESS PULL 



1. Move last entry over pulled 
one. 

2. Write back pool directory 
disk block (DL2ICS). 




BR1098.1 

Figure 3-55. PULL/POOL Keyword Program (#KPOOL) Flowchart (Part 1 of 2) 

Program Organization 3-79 

Licensed Material— Property of IBM 






KP0900 



LOAD #SPACK SUBROUTINE 



1 . Prime return from #SPACK. 

2. Load #SPACK via $RLOAD. 

3. Pack the file library. 



RESTORE DIRECTORY 
BLOCKS 



1. Restore null directory. 

2. Restore user directory disk 
block with zero link. 



KPO690 




PROCESS USER 



1 . Set pool indicator off. 

2, Restore user directory disk 
block (DL2ICS). 



#GUFUD 
Figure 3-22 
Via $CARPL 



BR1098.2 



Figure 3-55. PULL/POOL Keyword Program (#KPOOL) Flowchart (Part 2 of 2) 
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READ Keyword Program-#KREAD (Figure 3-56) 

• #KREAD changes the system input device to keyboard or card reader. 

• The assembly of #KREAD contains this major source module: 

KREADN-Mainline logic, Figure 3-56 

#KREAD sets input mode indicators in the nucleus communications area (refer to 
Figure 5-1) corresponding to parameters of the READ statement. #KREAD exits 
to the system nucleus which loads #GUFUD (Figure 3-22) to load the proper I/O 
routines. 



#KREAD 



SYNTAX CHECK LINE AND SET INTERNAL INDICATORS 



1 . Exit to $CAERK to load the error program (#ERRPG) if an invalid 
delimiter or no parameter is specified. 

2. If 'KEY' is found, followed by EOS, set $CALLI off and exit 

to $CAIPL to load the I/O routines and #GUFUD. — — 

3. Check for parameters 'CARD', 'LIST', 'NOLIST', 'NUM', and 
'NONUM' and set internal indicators when one is found. 

4. Exit to $CAERK if a parameter is found that is not the same as one 
specified above. (EOS is OK.) 

5. Exit to $CAERK if conflicting parameters or duplicate parameters 
are found. 

6. Upon finding EOS, exit to $CAERK if 'CARD' was not a specified 
parameter. 

7. Exit to $CAERK if there is not a data recorder on the system. 



KRE240 



SET NUCLEUS INDICATORS IN $KEYCD 



1. Set on card input indicator ($CARDI) and set $CALLI off. 

2. If 'NOLIST' was specified, set on nolist indicator; else, set it off 
($NOLST). 

3. If 'NUM' was specified, set on number indicator; else, set it off 
($DTNMB). 

4. Exit to $CARPL to load #GUFUD.' 



#GUFUD 
Figure 3-22 
Via $CAIPL 



C#GUFUD \ 
Figure 3-22 
Via $CARPL J 



Figure 3-56. READ Keyword Program (#KREAD) Flowchart 
RELABEL Keyword Program-#KRLAB (Figure 3-57) 

• #KRLAB changes variable names in the system work area program according to user 
specified parameters. 

• The assembly of #KRLAB contains these major source modules: 

KRLABL-Mainline logic, Figure 3-57 

GRABIT-Work file input, Figure 3-74 

GPUTIT-Work file output, Figure 3-73 

DL4ICS-System work file IOCS, Figure 3-70 

SVARAB— Variable scan, no flowchart. 
#KRLAB evaluates and determines the validity of the parameters, which must be pairs 
of the same class of labels. If an error occurs, the program is terminated prior to any file 
alterations. Every statement is scanned for the first entry of a parameter pair. If a match 
is found, the second entry of that parameter pair is substituted in its place. The file line 
length is altered only when a different length label is substituted. The command is 
rejected if a data file is in the work file. #KRVLA is the second phase of the RELABEL 
keyword program. 

Program Organization 3-81 
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#KRLAB 



#KRLAB 



SYNTAX CHECK INPUT LINE 



1 . Exit to $CAERK to load the error program if a 
dash was found immediately following the 
RELABEL keyword. 

2. Exit to $CAERK if there is no parameter follow- 
ing the keyword. 

3. Go to KRL1 00 to create the label table. ^— 



KRL080 



SAVE WORKFILE IN VIRTUAL MEMORY 



1. Call DL4 ICS to read the file from the work area to 
core (using maximum available core). 

2. Call DL4ICS to write the file from core to virtual 
memory. 

3. Update disk parameter lists for reading from and 
writing to disk. 

4. Decrement file size by core size. 

5. Branch to KRL080 if there is more file to transfer. 

6. When all of file is transferred, call $RLOAD to 
load the overlay program, #KRVLA, 



#KRVLA 



Q #KR VLA ^ 



SEARCH FILE LINE FOR A LABEL 



Prime GRAB IT buffers with the first two sectors 
of virtual memory. 

Set initial indicator and initial disk address (first 
virtual memory sector) for GRABIT. 
Call GRABIT for the initialization process. 
Mask against interrupts. 
Set GRABIT indicator to return text. 
Call GRABIT to get a line of the file. 
Exit to KRV600 if this is the EOF line. « 



Call SVARAB to find a label in the file line. 
If SVARAB returns referencing an EOS, call 
GPUTIT to write the file line back to disk; then, 
branch to KRV380 to get the next line of file. 
When SVARAB returns pointing to a label, 
search the label table for a match. 
If a match is found, substitute the new label for 
the old label and shift the line to the right one 
byte if a letter-digit variable is replacing a simple 
letter variable. (Set switch if a line is truncated.) 
12. If a match is not found, or if a switch of labels 
has been made, branch to KRV390. 



10 



11 



KRL100 



CREATE LABEL TABLE 



1 . If @XR is referencing a '$', 

or alphabetic character 
'A'— 'Z', move symbol to label 
table; else, exit to $CAERK. 

2. lf@XR+1 is referencing a digit, 
move digit to label table; 

If @XR+1 is referencing a 
'$(*)', set type code for 
character array in label table; 
If @XR + 1 is referencing a '(*)', 
set type code for arithmetic 
array; else set type code for 
simple arithmetic variable. 

3. Exit to $CAERK if the label 
was not followed by a valid 
delimiter. 

4. Exit to $CAERK if EOS 
follows the first label in a pair. 

5. Exitto$CAERK if a label 
pair is found and the type 
codes of the two labels are 
incompatible. 

6. Repeat this block until an 
EOS is encountered, 

7. When EOS is found following 
a valid list of labels, set an 
end-of-label-table indicator. 



KRL250 



SEARCH FILE INDEX TABLE 



3. 



Add expansion factor to core 
size for reading and writing 
maximum number of sectors 
of work file from the work 
area to virtual memory. 
Search all of file index table to 
find the maximum size of the 
work file. 

Go to KRL080 to write the 
file to virtual memory. 








Set error message 
stack. 



Figure 3-57. RELABEL Keyword Program (#KRLAB) Flowchart 
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REMOVE Keyword Program-#KRMOV (Figure 3-59) 

• #KRMOV notifies the system that a volume is being removed from Rl or R2. 

• The assembly of #KRMOV contains these major source modules: 

KRMOVE-Mainline logic, Figure 3-59 
SUPDAT-Statistical error recording, no flowchart 
SUTOBA— Switch system mode, no flowchart 

#KRMOV reads the volume label to verify that the volume-ID matches the user specified 
volume-ID in the nucleus communications area (refer to Figure 5-1). If the drive is Rl , 
an indicator is reset for no system work area available. The volume-ID table entry for 
Rl or R2 is reset to binary O's (refer to Figure 5-10). 

The volume must be ready until #KRMOV is terminated because the individual volume 
error statistics must be updated. If Rl is removed and it contains the current system 
program file, a hard halt is generated after the appropriate message is printed. An error 
also occurs and a warning error message is printed if the user is logged onto the disk he 
is removing. 

#KRMOV is loaded by #ECMAN (Figure 3-24) at 0C00 (see the core map, Figure 
3-58). 



System Nucleus 



Input Line Buffer 



I/O Routines 



#KRMOV 



One Sector Disk Buffer 
for Volume-ID Sector 



BR1101 

Figure 3-58. #KRMOV Core Map 
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#KRMOV 



SYNTAX CHECK LINE AND SET INDICATORS FOR PARAMETERS 



1 . Exit to $CAERK (to load #E R RPG, the error program) if REMOVE 
was immediately followed by a dash. 

2. Scan across blanks. 

3. If EOS or 'R1 ' is found, set R 1 indicator on. 

4. If 'R2' is found, set R2 indicator on. 

5. Exit to $CAERK if neither R1, R2, or EOS is found. 

6. Increment past 'RT or 'R2' and exit to $CAERK if optional blank(s)' 
and EOS are not found. 



KRM400 



PROCESS REMOVE 



1. Read volume label of specified disk (via $DISKN). 

2. Exit to $CAERK if the volume-ID on the disk (as found in the 
volume label) does not match the appropriate $VOLID nucleus entry. 

3. Branch to SUPDAT to update the error counters. 

4. Mask against interrupts. 

5. Clear the cylinder byte of the file library disk address to zero. 

6. Clear the $VOLID volume ID to zeros. 

7. Set the nucleus indicator to allow only the mount or initial commands 
($MOUNT in $INDR3). 

8. If R1 is being removed, set the 'no work area on R1' indicator on (in 
nucleus, $NWRKR in $INDR3). 

9. If R1 is being removed, SUTOBA is called to check the condition of 
the System Work Areas. If SUTOBA detects that work areas were 
present on R1 and F1 before the REMOVE command, the $CMODE 
indicator (BASIC mode indicator) is set on to force an error condition, 



if a disk without a work area is mounted on R1 . 

10. If R 1 is being removed and it contains the current system program 
file, print appropriate message and come to a hard halt. 

11. If the user is not logged-on, exit to #GUFUD via $CAIPL to return to 
keyboard mode. , 

12. If the specified disk does not contain the current file library, exit to 



#GUFUD via $CAIPL. 
13. Clear the current password and disk specification in nucleus to zeros. 



($FILIB-1, $USRDR, and $PASWD). 
14. Set warning error message code in $CAERR and exit to $CAERK. 



Figure 3-59. REMOVE Keyword Program (#KRMOV) Flowchart 




#GUFUD 
Figure 3-22 
Via $CAIPL 
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RENAME Keyword Program-#KNAME (Figure 3-60) 

• #KNAME assigns a new filename to the work file or to a file in the file library 
(pooled and/or user file). 

• The assembly of #KNAME contains these major source modules: 

KNAMES-Mainline logic, Figure 3-60 
DL2ICS-Disk logical IOCS, Figure 3-70 
SFINDF— Find library file, Figure 3-75 
SGETDB— Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
SVOLID-Search volume-ID table, Figure 3-76 
. #KNAME assigns the user filename to the file specified by the user file specification. 

The user directory and the pooled directory are searched to ensure that the new file- 
name is not a duplicate. 

If the name is valid, the entry in the directory is changed by writing back that sector 
of the directory. 

If the user file specification is not present, the user filename is assigned to the currently 
active file in the system work file. 
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#KNAME 



SYNTAX CHECK THE FIL 


E-SPECIFICATION 


1. Call SUFFER to syntax 

2. Exit to #ERRPG via $C/ 


:heck the file-specification. 
\ERK if errors are detected. 



KNA220 




SMPSWD ^ Yes 
= Blank 



SYNTAX CHECK BOTH FILENAMES 



1 . Call SALPH8 to syntax check the filenames. 

2. Save the new and old filenames. 

3. Syntax check the remainder of the command line. 

4. Exit to #ERRPG via $CAERK if errors are detected. 



RENAME THE WORK FILE 



Change the name of the active file in the work file. 
The name is located at label $WFNME. 



#GUFUD 
Figure 3-22 
Via $CARPL 




SEARCH POOL DIRECTORY FOR OLD FILENAME 



1. Save the new filename. 

2. Call SFINDF to search the * directory for the 
old filename. 

3. Exit to #ERRPG via $CAERK if the old name is 
not found. 



KNA280 



SEARCH USER DIRECTORY TO LOCATE OLD 
FILENAME 



1 . Call SFINDF to search the user directory for the 
old filename. 

2. Exit to #ERRPG via $CAERK if the file or pass- 
word is not found. 

3. Set an indicator to cause as search of the * 
directory if the file is pooled. 



KNA400 



SEARCH POOL DIRECTORY FOR DUPLICATE OF 
NEW FILENAME 



1. Save the old filename. 

2. Call SFINDF to search the * directory for a dupli- 
cate of the new filename. 

3. Exit to #ERRPG via $CAERK if a duplicate is 
found. 



KNA300 



SEARCH USER DIRECTORY FOR DUPLICATE 
OF NEW FILENAME 



1. Save the old filename. 

2. Call SFINDF to search the user directory for a 
duplicate of the new filename. 

3. Exit to #ERRPG via $CAERK if a duplicate is 
found. 



KNA350 




MODIFY POOL DIRECTORY 



1 . Change the entry previously located in the * 
directory to the new filename. 

2. Call DL2ICS to write back the * directory disk 
block. 



KNA500 



MODIFY USER DIRECTORY 



1 . Change the entry previously located in the user 
directory to the new filename. 

2. Call DL2ICS to write back the user directory disk 
block. 



#GUFUD 
Figure 3-22 
Via $CARPL 



) 
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Figure 3-60. RENAME Keyword Program (#KNAME) Flowchart 
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RENUMBER Keyword Program-#KRNUM (Figure 3-61) 

• #KRNUM renumbers the statements of the active file in the system work area. 

• The assembly of #KRNUM contains these major source modules: 

KRNUMB-Mainline logic, Figure 3-61 
KROVLY-Mainline logic, Figure 3-61 
GRABIT-Work file input, Figure 3-74 
GPUTIT-Work file output, Figure 3-73 
DL4ICS-System work file IOCS, Figure 3-70 

#KOVME is an entry point used only by #KMERG (MERGE keyword program, Figure 
3-51). This entry assumes that the file has been written in virtual memory and a line 
number table is in core. 

The first line of the current file to be renumbered is specified by the second parameter. 
The line number assigned to it is the first parameter. All succeeding lines of the work 
area file are renumbered, using the third parameter as an increment. 

If the file in the work file is a program, all line number references in the program are 
changed to reflect the new numbering, with each line number occupying four positions. 
(Imbedded blanks in a line number are removed.) 

Parameters can be omitted only in descending order. Default values for the three 
parameters are 100, 0, and 10. 
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KRN050 




COLLECT PARAMETERS 



1. Call C4BIN2 to convert parameters to binary. 

2. Replace default parameters with those specified. 



KRN120 




TRANSFER WORK AREA TO VIRTUAL MEMORY 



1 . Increment buffer size by expansion factor. 

2. Search FIT to determine file size. 

3. Use DL4ICS to transfer work area file to virtual 
memory. 

4. Call $RLOAD to load overlay #KROVL. 



c 



#KOVME 



^ #KROVL ^ 



#KROVL 



BUILD LINE NUMBER TABLE 



1 . Use $DISKN to prime GRABIT buffers. 

2. Call GRABIT to return file lines. 

3. Put line numbers in table. 



#KOVME 



RENUMBER FILE TO WORK AREA 



1 . Use $DISKN to prime GRABIT buffers. 

2. Mask against interrupts. 

3. Call GRABIT to return file lines. 

4. Change line number references where applicable. 

5. Change line number if applicable. 

6. Call GPUTIT to write file line to work area file 
and build FIT. 



C#GUFUDl 
Figure 3-22 
Via $CARPL 

BR1104 



Figure 3-61. RENUMBER Keyword Program (#KRNUM) Flowchart 
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RESUME Keyword Program-#KRSUM (Figure 3-62) 

• #KRSUM returns the suspended program to the execution pause state, 

• Running of the returned suspended program is aborted if an "open" file is gone or 
was modified. 

• The suspended program is aborted without running, if the configuration was altered, 
to allow the user to reconfigure. 

• The assembly of #KRSUM contains these major source modules: 

KRSUME-Mainline logic, Figure 3-62 
SVOLID-Search volume-ID table, Figure 3-76 
SFINDF— Find library file, Figure 3-75 
SGETDB— Search password directory, Figure 3-77 
SRCHFN— Search user directory, Figure 3-78 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work file IOCS, Figure 3-70 

The RESUME command restores the currently suspended program (if one exists), along 
with its associated status information, to the execution pause state so that execution can 
resume when the GO command is issued. 

The program deletes the suspended program file and sets an indicator for the system, 
enabling a user to suspend another program; and prints the name of the program that is 
restored to the pause state. 

The existence of any of the following conditions results in an error condition when the 
RESUME command is issued: 

1. An operand of any sort with the keyword (a syntax error). 

2. Nonexistence of a program in a suspended state. 

3. Nonexistence of a file that the program expects (i.e., was deleted). 

4. Open indicator in a file is not set on when KSSUME goes out to shut it off. 

5. Modified configuration. 

Note: In conditions 3 and 4, the suspended program is lost without restoration to a 
pause state. All conditions result in an error and an error code is set in $CAERR, 
followed by a branch to $CAERK. 

Input to RESUME is the suspended program and its associated status information. Out- 
put is the restoration of the program to the execution pause condition. 
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#KRSUM 



KRS100 




SYNTAX & READ STATUS 



1. Syntax command line. 

2. Read fixed sector via $DISKN, 

3. Exit to $CAERK if: 

a) Invalid syntax 

b) No suspended program. 



KRS000 



KRS200 




CHECK CONFIGURATION 


Exit to $CAERK if: 




1 . $EXFTR not same 




2. $DKSIZ not same 




3. $CONFG not same 




4. $KEYBD not same 




5. $CRTAV, $LNPTR, and $DTRDR in $IOIND are 


not same. 





RESUME CORE 




1 . Read ##CS/ 

2. Write ##CO 


W via DL2ICS. 
RE via DL2ICS. 



KRS010 




No 



READ VM PAGES 0,1 



1. Read file directory 1 and file directory 2 from 
virtual memory via $DISKN. 

2. Search for open disk files via SFINDF. 

3. Set off 'OPEN 7 indicator. 

4. Convert disk addresses to physical disk addresses 
and modify D2. 

5. Re-write directory block (DL2ICS). 

6. Destroy suspend status and exit to $CAERK if: 

a) Disk file not 'OPEN', 

b) Disk file not found. 



KRS600 



KRS020 



RESUME VM ' 




1. Read##SAVv 

2. Write #@#VFP 


a DL2ICS. 

(VM) via DL4ICS. 



KRS060 



RESUME PROGRAM 



Restore $PAUSD registers: 

a) $SRTRN 

b) $PSDBR 

c) $PSDXR 
Restore $INLNO. 

Restore $XIND1 and $XIND2. 






Yes 


KRS090 





GUFUDI 
Figure 3-22 
Via $CARPL 
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Figure 3-62. RESUME Keyword Program (#KRSUM) Flowchart 
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RUN/STEP/TRACE Keyword Program-#KRUI\!l (Figure 3-63) 

• #KRUNI provides linkage to the compiler. 

• The assembly of #KRUNI contains this major source module: 

KRUNIT— Mainline logic, Figure 3-63 

To compile the BASIC program active in the system work file, the compiler (#BCOMP) 
is loaded directly. To compile a BASIC program from the file library, #KEDIT (Figure 
3-40) is loaded to edit the file into the system work file and then load the compiler. 

For TRACE, if a list of BASIC identifiers is present, the list is written to virtual 
memory for use by the compiler. 



KRUNIT 




SYNTAX CHECK TO DETERMINE TYPE OF EXECUTION 



1 . Set on run indicator in nucleus if RUN execution. 

2. Set on step indicator in nucleus if STEP execution. 

3. Set on trace indicator in nucleus if TRACE execution. 

4. Set on short or long indicators in nucleus if specified. 

5. Exit to $CAERK on syntax errors. 



No 




KRU290 




No 



No 




SYNTAX CHECK LIST OF BASIC IDENTIFIERS 



Set on all indicator in nucleus, if ALL parameter, or no parameters. 
Set on flow indicator in nucleus if FLOW parameter. 
Syntax check variable list and exit to $CAERK to print error message 
if syntax error. 



4. Enter $DISKN to write list to virtual memory. 



KRU145 




PRIME AND LOAD #KEDIT 



1 . Set on indicators in nucleus. 

2. Exitto$RLOADtoloadand 
execute #KEDIT. 



#KEDIT 
Figure 3-40 
Via $RLOAD 



CHECK WORK FILE STATUS AND LOAD COMPILER 



Exit to $CAERK to print error message upon: 

a) No work file defined, 

b) Work file empty, — 

c) Data or procedure file in work file. 



2. Exit to $RLOAD to load and execute compiler. 



I 




#BCOMP 
Figure 3-119 
Via $RLOAD 



#ERRPG 
Figure 3-17 
Via $CAERK 



Figure 3-63. RUN/STEP/TRACE Keyword Program (#KRUNI) Flowchart 
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SAVE Keyword Program -#K SAVE (Figure 3-64) 

• #KSAVE stores the active file from the system work file to the file library (system 
library file). 

• The assemblies of #KSAVE and #KSVLA contain these major source modules: 

KSAVEN-Mainline logic, Figure 3-64 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work file IOCS, Figure 3-70 
STORIN-Null directory insert, Figure 3-79 
STUFID-User directory insert, Figure 3-80 
SRCHFN— Search user directory, Figure 3-78 
SFINDF-Find library file, Figure 3-75 
SGETDB— Search password directory, Figure 3-77 
SVOLID-Search volume-ID table, Figure 3-76 
SURCHN-Search null directory, Figure 3-81 

The new file is stored on the same volume as the old file when the filenames match. The 
new file does not necessarily occupy the same physical disk space. The old file physical 
disk space may be placed in the null directory. A file is not replaced if it is pooled or 
protected. 

#KSAVE loads #SPACK (Figure 3-86) when disk space can be obtained by packing 
the file library. #SPACK loads, and returns to, #KSAVE. 
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#KSAVE 



KSAVEN 




SYNTAX CHECK AND FIND SPECIFIED FILE 


1 . Mask interrupts and set pointer for input buffer. 

2. Save disk block count from FIT. 

3. Call SUFFER to decode file-specification. 

4. Call SCSTG to decode character constant header. 

5. Call SFINDF to locate current password and file. 

6. Call $R LOAD to load #KSVLA. 

7. Exit to $CAERK if any errors. 







Password 
Found 



Yes 



No 



KSA007 



#ERRPG 
Figure 3-17 
Via $CAERK 



1. If file name was found and file is pooled or pro- 
tected, take the error exit. 

2. If ** file, call SFINDF to find first available space in 
the disk searching order. 

3. If space not available, call SPACKU to pack the li- 
brary area. 

4. If space found for ** file, return it to null directory. 

5. Call DL4ICSto read in FIT. 



KSA030 



CALCULATE FILE LENGTH AND BUILD 
READ TABLE 



1 . If program generated data file disk block count is file 
size, calculate FIT size and add to disk block count. 

2. If BASIC file, add the length of the I/O record. 

3. Build read table of displacements and number of 
contiguous sectors. 




KSA140 

SELECT SPACE TO USE 



1. Call SURCHN to look for space to use. 

2. If space not found, go to $CAERK, if total null 
space not enough. 

3. If total null space required, call #SPACK to pack 
library area. 

4. If file name and new space found, find closest to 
start of library. 

5. If new space closer, use it and call STORIN to send 
old space to null directory. 

6. If null directory full, call #5PACK to pack library. 

7. If old space is closer, but new file is larger, use new 
space. 

8. If old space closer, and new file is smaller, call 
STORIN to return new space and remainder of old 
space to null directory. 



KSA210 




UPDATE USER DIRECTORY AND START I/O 



1. Update old entry or build new entry for user direc- 
tory. 

2. Call STUFID to make entry and output the direc- 
tory. 

3. Set up DPL to output FIT and I/O sector, if file is 
not a program generated data file. 

4. Set FIT entry displacements in physical/logical order. 

5. Call DL2ICS to output FIT and I/O sectors. 



KSA229 




COPY FILE FROM WORK AREA TO LIBRARY 



1. Pick up entries from read table and call DL4ICS to 
fill the buffer. 

2. Call DL2ICS to write the buffer to the library area. 

3. On last entry, call DL2ICS to empty the buffer. 

4. Go to $CARPL to reload #GUFUD. 



#GUFUD 
Figure 3-22 
■ Via $CARPL 



BR1107A 



Figure 3-64. SAVE Keyword Program (#KSAVE) Flowchart 
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SET Keyword Program-#KSETI, #KSOVR (Figure 3-65) 

• #KSETI syntax checks the SET command line, assuring valid syntax for the SET 

overlay #KSOVR. ) 

• The assembly of #KSETI contains this major module: 
KSETIT-Mainline logic, Figure 3-65 

• #KSOVR assigns a value to an existing program variable during a program execution 
pause state. 

• The assembly of #KSOVR contains this major module: 

KSOVRL-Mainline logic, Figure 3-65 

The SET command line is syntax checked. When correct syntax is assured, initializing 
operations are performed to load the overlay #KSOVR. 

The specified variable or array element symbol is converted to a virtual address. The 
specified constant is converted to a form suitable for storage in virtual memory and then 
moved to the virtual memory address associated with the symbol. 



#KSETI 



3 



KSETIT 

SYNTAX CHECKING 



1 . Set program for long precision if required. 

2. Syntax check input line; exit to $CAERK on 
errors to load #ERRPG. 

3. Get symbol and array tables. 

4. Set parameter list for paging module and core 
pages. 

5. Exit to $RLOAD to load #KSOVR (the set 
overlay). 



#KSOVR 
Via $RLOAD 



KSOVRL 



SET PHASE TWO, SET EXECUTION 



1 . Get paging module and core pages. 

2. Set program for long precision if required. 

3. Determine virtual address of the variable. 

4. Convert input constant to internal form. 

5. Enter IPGMDL to move constant to the 
virtual memory address of the variable. 

6. Exit to $CARPLtoload #GUFUD. 

7. Exit to $CAERK on errors to load #ERRPG. 



C#GUFUD 
Figure 3-22 
Via SCARP L 
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Figure 3-65. SET Keyword Program (#KSETI, #KSOVR) Flowchart 
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SUSPEND Keyword Program -#KSSPN (Figure 3-66) 

• When the SUSPEND command is issued, the current program in an execution pause 
condition is saved for future completion of execution. 

• The assembly of #KSSPN contains these major source modules: 

KSSPND-Mainline logic, Figure 3-66 
SVOLID-Search volume-ID table, Figure 3-76 
SFINDF— Find library file, Figure 3-75 
SGETDB— Search password directory, Figure 3-77 
SRCHFN— Search user directory, Figure 3-78 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work file IOCS, Figure 3-70 

The SUSPEND command causes the program that is currently in an execution pause 
condition (if one exists) to be saved, along with its associated status information, for 
future completion of execution. This enables the user to execute other programs, or 
certain system functions, without affecting the suspended program. If the RESUME 
command is issued and a program is in the suspended state, the program is returned to 
an execution pause condition. If two SUSPEND commands are issued in succession, the 
first suspended program is replaced by the second suspended program if the optional file- 
name of the first program is specified in the second command. If any active data files are 
modified while the program is in the suspended state, the suspended program is aborted. 

The associated status information suspended with the program includes the 64k of 
virtual memory that is unique for this program, a six-sector symbol table, register data 
for return to the calling point, and other indicators. 

Any of the following conditions results in an error when the SUSPEND command is 
issued: 

1 . An operand of any sort, other than the optional filename, with the keyword 
(a syntax error). 

2. Any program already in a suspended state, if the optional filename is not specified. 

3. The nonexistence of a program in an execution pause state. 

4. An active disk scratch file for the program. 

5. The nonexistence of a file associated with the program for suspension. 
Note: This error causes a hard halt after a message is displayed. 

Each of the preceding conditions results in an error; and an error code is set in 
$CAERR, followed by a branch to the error exit routine at $CAERK. 

Input information to SUSPEND is (1) the program in an execution pause state and 
(2) its associated status information. Output is the transfer of this program and informa- 
tion to the suspend save area. 
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^ flKSSPN ^ 



KSS100 




SYNTAX & READ STATUS 



1. Syntax command line. 

2. Read fixed status sector via $DISKN. 

3. Exit to $CAERK if: 

a) Syntax error, 

b) Program already suspended. 



KSS200 



KSSOOO 



SUSPEND CORE 




1. Read ##CORE v 

2. Write ##CSAV vi 


ia DL2ICS. 

a DL2ICS (suspend). 



READ VM DIRECTORIES 



1 . Read directories 1 and 2 from VM. 

2. Exit tp $CAERK if any 'OPEN' scratch files. 



KSS300 



KSS010 ./^V 

<T Core "> 

Transfer ,s 



No 



SEARCH ALLOCATED FILES 



1 . Search for allocated disk files via SFINDF. 

2. Exit to $CAERK if newfound (hard halt). 

3. Set on open indicator. 



KSS400 



KSS020 



SET UP SUSPEND SECTOR 



1 . Save suspended program name. 

2. Save $PAUSD registers. 

3. Save $INLN0, $EXFTR, $XIND1, $X1ND2, 
$DKSIZ, $CONFG, $KEYBD, $CRTAV, $DTRDR, 
$LNPTR. 



KSS500 



SUSPEND VM 




1. Read#@#VFP 

2. Write VM to #i 

3. Update displac 


via DL4ICS. 
/SSAV (suspend), 
sments. 



PREPARE CORE & VM TRANSFER 



1 . Compute disk addresses of suspended core 
and VM. 

2. Get count of core sectors saved 
($CSDPL + @ DCNT). 

3. Generate buffer size dynamically. 



KSS060^/\v 

<^ vm y 

\. Transferred 



No 



KSS090 



Yes 



GUFUDI 
Figure 3-22 
Via $CARPL 
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Figure 3-66. SUSPEND Keyword Program (#KSSPN) Flowchart 
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SYMBOLS Keyword Program-#KSYMB (Figure 3-67) 

• #KSYMB displays all variable names used in the system work area program. 

• The assembly of #KSYMB contains these major source modules: 

KSYMBL-Mainline logic, Figure 3-67 
GRABIT— Work file input, Figure 3-74 
DL4ICS-System work file IOCS, Figure 3-70 
DLPRNT-IOCS for output, Figure 3-71 
SVARAB— Variable scan, no flowchart. 

#KSYMB scans the lines of the program in the system work area to locate the variable 
names used. 

A symbol table is built, using one byte for each possible variable name. If a variable is 
referenced in a disabled line, an indicator for this is set in the appropriate symbol table 
byte also. When all variables have been scanned, this symbol table is printed with each 
symbol occupying a seven-character field of which the last character is always blank. If 
the variable was in a disabled line, * is printed in the first character position of the out- 
put field. Nine variables are printed on one line, giving a print line 63 characters long. 
Output can be specified to go to the matrix printer or CRT; otherwise, the system printer 
is assumed to be the output device. 
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^ ffKSYMB^ 
#KSYMB I 



SYNTAX-CHECK LINE AND PERFORM INITIALIZATION 



1 . Clear 406-byte symbol table to zeros. 

2. Exit to $CAERK to load the error program (#ERRPG) if a dash follows 
the SYMBOLS keyword. 

3. Branch to SCKOUT to check the specified output device, if one is 
specified. 

4. Exit to $CAERK if SCKOUT found a syntax error. 

5. Exit to $CAERK if an EOS is not found after the output device 
specification. 

6. Branch to SCKOUT at SCKDEV to check for the presence of the 
specified output device and to ready the device for use. 

7. Prime GRABIT buffers with the first two sectors of the work file. 

8. Set GRABIT code to return text. 




KSY150 



SEARCH THE FILE FOR SYMBOLS 



1. Call GRABIT to retrieve one file line. 

2. Branch to KSY800 if this is the EOF line. — — — — — — 

3. Call SVARAB to find a symbol in the line. 

4. Go to KSY150 if SVARAB returns with an EOS. 

5. Set indicator on in symbol table for the symbol that was recognized. 

6. Repeat loop to find more symbols. 



KSY800 

PRINT SYMBOLS REFERENCED 



3. 



6. 



Search symbol table for symbols whose indicators 
are set, indicating a reference was made to them. 
Move EBCDIC code for each symbol to a print 
buffer. 

If the symbol was referenced in a disabled line> 
precede the symbol with an asterisk in the print 
buffer. 

Branch to KSYPRN to print or save the line. 
When all of symbol table has been searched, set 
switch in KSYPRN to force the print buffer to be 
printed, if it contains at least one symbol, and call 
KSYPRN. 

Exit to $CAERK if the work file did not contain 
any symbols. 



#GUFUD 
Figure 3-22 
Via $CARPL 



3 



KSYPRN 




PRINT ROUTINE 



1 . Save return address. 

2. If switch is set to force printing, go to DLPRNT. 

3. If output line buffer is not filled, return to point 
where called. 

4. If output line is filled, branch to DLPRNT to 
print the line on the appropriate output device; 
clear the print buffer to blanks. 

5. Return to point where called. 
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Figure 3-67. SYMBOLS Keyword Program (#KSYMB) Flowchart 
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WIDTH Keyword Program-#KWIDT (Figure 3-68) 

• #KWIDT changes the margin values for the system printer in the nucleus communica- 
tions area (refer to Figure 5-1). 

• The assembly of #KWIDT contains this major source module: 
KWIDTH-Mainline logic, Figure 3-68. 




SYNTAX CHECK LINE AND ACCUMULATE PARAMETERS 



1 . Initialize new left margin to old left margin, in case a new one is not 
specified. 

2. If WIDTH is immediately followed by a dash, exit to $CAERK to load 
#ERRPG, the error program. 

3. Exit to $CAERK if the line contains no parameters. 

4. Branch to C4BIN2 to convert the width parameter to binary. 

5. Exit to $CAERK if the width was not an integer, if it contained more 
than four digits, and if it was not validly delimited (i.e., followed by a 
comma, blank(s), or EOS). 

6. If EOS does not follow (after optional blanks) the width parameter, 
branch to C4BIN2 to convert the left margin to binary. 

7. Exit to $CAERK if the left margin was not a number, if it contained 
more than four digits, or it was not followed (optional blanks) by EOS. 



KWI500 



CHECK FOR VALID SPECIFICATION(S) 



1 . If a left margin value was specified, subtract '1 ' from it; if negative num- 
ber results, exit to $CAERK. 

2. If specified width is less than '18', exit to $CAERK. 

3. Compute the right margin by adding the left margin to the width. 

4. Exit to $CAERK if the right margin exceeds the physical capacity of 
the printer (i.e., it is greater than 1 32 or 220). 

5. If the current print position is less than the new left margin, 

a) Calculate the difference between the current print position and the 
new left margin, in KWIHLD. 

b) Set the value of KWIHLD in the count of the print parameter list. 

c) Set the right margin in nucleus ($RMRGN) = 220, temporarily. 

d) Branch to $$PRNTto print blanks over the new left margin 
(i.e., move the print position over). 



KW1700 



STORE THE NEW MARGINS IN THE NUCLEUS 



1. Store the new left margin in the nucleus at $LMRGN. 

2. Move a carrier return to position the print head. ($$PRNT) 

3. Set the 'I/O routines in core' indicator off. 

4. Store the new right margin in the nucleus at $RMRGN. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-68. WIDTH Keyword Program (#KWIDT) Flowchart 
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WRITE Keyword Program-#KWRIT (Figure 3-69) 

• #KWRIT changes the device used as system printer to CRT, matrix printer, or both. 

• The assembly of #KWRIT contains this major source module: 

KWRITE-Mainline logic, Figure 3-69 
#KWRIT stores these addresses at $PRDEV in the nucleus: 

DPRINT for matrix printer IOCR. 
DSPLYN for CRT IOCR. 

DSPYMP for matrix printer IOCR and CRT IOCR; this label is an entry point to the 
CRT IOCR. 



KWR100 



PROCESS PRINTER 



#KWRIT 



) 



#KWRIT 




SYNTAX CHECK INPUT LINE 


1 . Enter SCANIT to skip to parameters. 

2. Exit to #ERRPG via $CAERK on syntax error. 







Printer 




CRT or Printer and CRT 



KWR200 



1. Exit to $CAERK if printer is unuseable due to 
previous printer error. 

2. Place the address $$PRNT at $PRDEV. 



PROCESS CRT 



1 . Exit to $CAERK if CRT not available on system. 

2. Place the address $$PLYN plus the contents of 
$EXFTR at $PRDEV. 



No 



KWR150 




PROCESS PRINTER WITH CRT 



1. Exit to #ERRPG via $CAERK if printer down due 
to previous printer error. 

2. Place the address $$PYMP plus the contents of 
$EXTFR at $PRDEV. 



Figure 3-69. WRITE Keyword Program (#KWRIT) Flowchart 
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#GUFUD 
Figure 3-22 
Via $CARPL 
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System Work File IOCS— DL4ICS (Figure 3-70) 

• DL4ICS converts relative disk addresses to physical disk addresses within the work 
file or virtual memory. It calls DKDISK to perform the disk I/O operation. 

• The calling sequence for DL4ICS is: 

B DL4ICS 

DC AL2(DPL) DPL is the address of the disk parameter list (Figure 3-3). The second 

byte of the disk address is a relative sector displacement. 

The disk address is specified as a physical cylinder, and a single-byte sector displacement 
relative to sector 0 on the specified cylinder. If a multiple-sector operation is required, 
DL4ICS splits the operation and makes multiple calls to DKDISK if necessary to 
properly cross cylinder boundaries. 

Disk Logical IOCS— DL2ICS (Figure 3-70) 

• DL2ICS converts relative disk addresses to physical disk addresses within a two-track 
file, and calls DKDISK to perform the disk I/O operation. 

• The calling sequence for DL2ICS is: 

B DL2ICS 

DC AL2(DPL) DPL is the address of the disk parameter list {Figure 3-3). The disk 

address is a two-byte relative displacement. 

The disk address is specified as a two-byte cylinder and sector displacement relative to a 
predefined disk address. This predefined disk address (two-byte physical address) must 
be stored at label DL2RAD prior to the first call to this IOCS. Files accessed by this 
IOCS are logically on one volume; therefore, the disk ID and drive number do not change 
from those specified in the predefined starting address. 
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c 



DL2ICS 



DL2002 



Save DPL 
from calling 
sequence. 



DL2005 



Increment' cylinder 
number and subtract 
48 from sector dis- 
placement until it 
goes negative; then 
add back 48. 



DL2008 



Shift remaining 
sector displacement 
left 2 bit positions 
for physical disk 
address. 



Add the starting 
address at label 
DL2RAD to DPL 
address (cylinder 
and sector). 



DL2100 



Increment track 
(carries to cylinder) 
and subtract 24 from 
sector displacement 
until it goes negative; 
then add back 24. 



DL2110 



$DISKN 



Pass physical DPL 
to DKDISK and 
do I/O. 



DL2910 



Return to 
Calling Program 



DL4ICS 



3 



DL4020 



Save DPL 
from calling 
sequence. 




DL4035 




If remaining sector 
displacement is 24 
or more, set bit for 
track 1 and subtract 
24 from sector dis- 
placement. 



DL4080 



initialize for 
removable disk 
and track zero. 



Shift remaining 
sector displacement 
left 2 bits for physi- 
cal disk address. 



DL4040 



Increment cylinder 
and subtract 96 from 
sector displacement 
until displacement is 
less than 96. 



Move previously 
computed disk I D 
and track to physi- 
cal disk address. 



DL4100 



DL4050 



If remaining sector 
displacement is 48 
or more, set bit for 
fixed disk and sub- 
tract 48 from sector 
displacement. 



$DISKN 3-7 



Pass physical DPL 
to DKDISK and 
do I/O. 



DL4060 




Yes 



Add sector count 
to remaining sector 
displacement. 




DL4SPT 



Operation will hit 
end of cylinder so 
divide sector count 
for 2 i/Os. 




DL4600 




Move in adjusted 
sector displace- 
ment and count 
for second I/O. 


( 
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Figure 3-70. Disk IOCS Routines (DL2ICS, DL4ICS) Flowchart 
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Line Printer Interface-DLPRIMT (Figure 3-71) 

• DLPRNT allows device independence when listing lines on the CRT or matrix 
printer. 

• If the CRT is to be used, the speed of the displayed lines is controlled, and the 
roll-stop and popup commands are recognized. 

• If the bidirectional printer is used, printing is done in both directions. 

• The calling sequence for DLPRNT is: 



B DLPRNT 
DC AL2(PPL) 



PPL is the address of the print parameter list (Figure 5-23). 



DCR650 



To control which device receives the output, a device type code may be placed at the 
label DLPTYP. The device type code is the displacement (from DLPRNT) to the routine 
for interface to the proper device. DLPTYP is initially set for output on the system 
printer. Values at label DLPTYP define the displacement equated to the label and its 
associated device: 

Label Device 

DLPMPR For output on MP 
DLPCRT For output on CRT 
DLPSPT For output on system printer 



Turn off 

command 

lights. 



Reset count 
of lines 
displayed. 





Delay 

time 

loop. 



Loop until 
another mode 
is selected. 



Note : Entry to DLPRNT 
is on part 2. 




DCR500 






Add 1 to 




count of 




lines displayed. 



Figure 3-71. Line Printer Interface (DLPRNT) Flowchart (Part 1 of 2) 
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DCRTIF 



DSPLYN 3-32 



Pass PPL to 
CRT IOCR. 




Branch 
CRT / Initialized 
by Calling 
Program 




CRT 



DSPLYN 3-32 



Pass PPL to 
CRT IOCR. 



DLI052 


No , 






DPR INT 


3-29 




Exit to MP IOCR 
via nucleus system 
printer interface. 









DLI550 





DPRINT 3-29 



Print and index; 
no carriage return. 



Set up buffer for 
another print. 



Set up to print full 
line and to re-enter 
this routine with 
residual. 



DLI410 



Set up for 
right or left 
printing. 






(Return to \ 
Calling Program J 



Clear buffer to 
blanks and move 
data to buffer. 


2 


DLI300 










$UNMSK 3-10 




Check for 
inquiry request. 



BR1117.2 



Figure 3-71. Line Printer Interface (DLPRNT) Flowchart (Part 2 of 2) 
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Card Punch IOCR-DCDOUT (Figure 3-72) 

• DCDOUT performs punching I/O for the data recorder. 

• When the call is made to this routine, the previous punching operation is checked 
for errors before starting the new request. 

• The routine then exits, allowing continued processing while the card is being 
punched. 

• The calling sequence for DCDOUT is: 

B DCDOUT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 

I/O Routines 

Two I/O functions are provided by DCDOUT: 

1 . Punch-96 bytes of data are punched (80, if configured for the 1 29), starting at the 
core address specified in the PPL. 

2. Wait and check for errors-This function allows the punching operation to 
complete error-free before returning to the calling routine. 

Error Recovery Procedures (ERP's) 

No error returns are made to the calling program. All ERP's are included within the 
10CR. Not-ready conditions cause a soft halt. Off-line and hopper full/empty conditions 
cause the CPU to loop on the TIO until the problem is corrected by the operator. Once 
the problem has been corrected, the SIO sent to the device is executed automatically. 

Data compare errors are retried once. Incorrect card code is accepted from the sys- 
tem, but the resulting punched card is bad. 

If five compare errors or hopper jams occur in one operation, the system comes to a 
hard halt, requiring a re-IPL. Errors are logged on the fixed disk. 
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Figure 3-72. Card Punch IOCR (DCDOUT) Flowchart 
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Work File PUT Subroutine-GPUTIT (Figure 3-73) 

• GPUTIT is a routine used to place single statements in the work file or in a temporary 
VM file, in ascending order. 

When this routine is first called, it initializes the file index table and places the statement 
passed to the routine in a core buffer as the first statement of a new file. Each statement 
passed via a subsequent call to GPUTIT is placed in the core buffers, following the pre- 
vious statement. As a statement is placed in a core buffer, the file index table (refer to 
Figure 5-16) is adjusted to reflect the inclusion of that statement unless GPUTIT = 1 
(set on). 

When a core buffer is filled to capacity, it is written to disk, and file building continues 
in the alternate core buffer. When the last statement of the file has been placed in a core 
buffer, it is followed by the end-of-file record. The last core buffer is then written to 
disk. 




Pack BASIC pro- Refer to GCPACK 

gram statements _ _ _ in work file update/ 

using GCPACK I crusher program 

subroutine. (#GUFUD). 




Figure 3-73. Work File PUT Subroutine (GPUTIT) Flowchart (Part 1 of 2) 
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Complete FIT 
entry for full 
disk block. 



Move segment to 
output buffer and 
adjust pointers. 



Divide the line into 
2 segments; move the 
first to the output 
buffer. 



Set up for move 
of second segment 
to buffer. 



GPU247 



No 



EOF 





s T 

1 Yes | 


GPU400 





Create a null SDF 
at end of disk block 
if space remains. 




Yes 



GPUERR 



GPU450 



DL4ICS 3-70 



Write full disk 
block to work 
file. 



)f $CAERK \ 
I Figure 3-9 J 




Figure 3-73. Work File PUT Subroutine (GPUTIT) Flowchart (Part 2 of 2) 
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Work File Retrieval Subroutine-GRABIT (Figure 3-74) 

• GRABIT locates sequential statements in the file specified by the user, and, depending 
upon the option chosen, passes back the statement or skips to the next. 

After being primed by the calling program, GRABIT reads logically consecutive blocks 
of segmented statements, from the file specified by the user, into core. GRABIT returns 
with @XR pointing to the binary line number of the next statement. 

In addition to @XR, GRABIT parameters can be set to cause the binary line number; 
the type code; and the unpacked, non-segmented text of the next statement to be placed 
in areas defined by the user. If GRABIT is used to skip through the statements without 
unpacking them or changing their length or segmented condition, GRABIT can be 
instructed to return the blocks to their original disk address if the specified file is accessed 
by DL4ICS. 



Set up DPLs for 
current and next 
input buffers. 



I nitialize pointers 
and counters for 
current input buffer. 



$DISKN 3-7 



Wait call for 
initial buffer load. 



Segment 




Yes 



Set EOF code for 
calling routine. 




GRA210 



GRA305 I No 



Update pointers 
and counters. 



I ncreme 


nt pointer 


by length of next 


segment 





GRA317 




Set up to access 
work file with 
DL4ICS. 





Unpack a segment 
from input buffer 
to GRTEXT. 




GRA250 


Yes ^ 


GRA500 


3-74 


Access next 
logical disk block. 










• 



Return to 
Calling Routine 
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Figure 3-74. Work File Retrieval Subroutine (GRABIT) Flowchart (Part 1 of 2) 
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GRA500 3-74 



Fill input 
buffers. 



Update pointers 
and counters. 



Access method is 
sequential with 2 
I/O areas. 



GRA500 



$DISKN 3-7 



Wait for completion 
of prior read. 



DL4ICS 3-70 



Write current buffer 
to work file. 





DL4ICS 3-70 



Read next logical 
block from work 
file. 



c 



DL2ICS 3-70 



Fill all buffers 
from saved file. 



Return to 
Calling Sequence 



Note: Logic represented on this flowchart may 
not be present In programs that do not 
require those Instructions. 



Figure 3-74. Work File Retrieval Subroutine (GRABIT) Flowchart (Part 2 of 2) 
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Find Specified File Subroutine-SFINDF (Figure 3-75) 

• SFINDF is a control subroutine used to locate a specified password and/or filename. 
The function of SFINDF depends upon the way the file is specified: 

1. If a filename, password, and volume-ID are all explicitly specified, SFINDF issues 
calls to SVOLID, SGETDB, and SRCHFN to search the appropriate file library 
directories to find the specified file. 

2. If the password or volume-ID is not explicitly defined, SFINDF defaults to the 
current user specifications, if they exist, for the missing parameters and then 
issues the required calls to SGETDB and/ or SRCHFN to locate the file. 

3. If a one-star (*) or two-star (**) filename is specified, SFINDF either searches 
the specified disk if a volume-ID was specified or searches every disk on the 
system for the file if a volume-ID was not specified. Parameters may be set to 
terminate the search after processing a specified number of disks containing 
file libraries. 



SFI500, 




SFI340 



SVOLID 3-76 



Search volume- 
ID table. 



Set disk address 

of logged-on library. 



SFI200 



Set up to search 
all file libraries. 
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Figure 3-75. Find Specified File Subroutine (SFINDF) Flowchart (Part 1 of 2) 
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DL2ICS 3-70 



Get first filename 
directory block. 




BR1122.2 

Figure 3-75. Find Specified File Subroutine (SFINDF) Flowchart (Part 2 of 2) 
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Find Volume-ID Subroutine-SVOLID (Figure 3-76) 

• SVOLID searches the volume-ID table in the nucleus communications area for a 
specified volume-ID. 

SVOLID scans the volume-ID table for a specified volume. If the volume is not found, 
an error code is put in $CAERR and an exit to SVOERR in the using program is taken. 
If more than one volume with the same volume-ID is found, the user is requested to 
indicate which drive and disk is to be used. If the user is unable to resolve the conflict, 
the current system command is rejected. If the system input device is the card reader, 
and duplicate volume-ID's have been found, the current system command is rejected. 



^ SVOLID ^ 



Set up to scan 
Volume-ID table 
in the system 
nucleus. 




SVO100 



Save table 
entry. 




None 




This routine tests 
for duplicates. 



Increment pointer 
to next entry. 




No 



$SPRNT 3-9 



Ask for drive 
clarification. 



DEPRES 3-30 



Accept 

user response. 




SVO270 



Return to 
Calling Program 



c 



$CAE RK 
Figure 3-9 



Figure 3-76. Find Volume-ID Subroutine (SVOLID) Flowchart 
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Search Password Directory Subroutine— SGETDB (Figure 3-77) 

• SGETDB searches the password directory for a specified password or reads into core 
the first directory block of the file-specification password. 

SGETDB searches the password directory for a specified password and reads into core 
the first directory block associated with that password. If SM1PDS is set, only the entry 
address of the password is passed to the caller in SMPEAD. If the directory block is 
requested and the password is not found, the error code is placed in $CAERR, SM1PNF 
is turned on in SMIND1 , and a normal return is taken. If only the password is requested 
and the password is not in the directory, the address for the next entry is passed in 
SMPEAD, SM1PNF is turned on, and the return is taken. 




DL2ICS 3-70 



Read in pass- 
word directory. 



$D1SKN 3-7 



Wait. 



SGEQ55 




Initialize scan of 
password directory. 



Yes 





Increment pointer 
to next entry. 



Save disk address 
of user directory 
from entry. 



Search 



Yes 



X. Only / 




(No 


/ Entry 


No 


X. Found 


SGE080 


[Yes 


DL2ICS 3-70 




Start read of 




first user direc- 




tory block. 








SGE900 





(Return to A 
Calling Routine J 
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Figure 3-77. Search Password Directory Subroutine (SGETDB) Flowchart 



3-114 



Licensed Material— Property of IBM 



Search Filename Directory Subroutine-SRCHFN (Figure 3-78) 

• SRCHFN searches the filename directories for a specified filename. 

SRCHFN searches a filename directory (USER, POOL, or **) for the filename in 
SMFNAM. The directory buffers and work areas are assumed to be available in TSMLES. 
The calling routine starts the disk operation to read the first directory block. 

If the name is found, the address of the left byte of the entry is stored in SMUDEA 
and the SM1FNE bit of SMIND1 is set off. If the name is not found, the address where 
the next entry is placed is stored in SMUDEA and the SM1FNE bit of SMIND1 is set on. 
In both cases, SMUDBA contains the left byte address of the active block. 



SRCHFN 

J 



Link 
Field Present 



I Yes 



SRC030 



Initialize for 
scan of file- 
name directory. 



Initialize 

buffer 

pointers. 




SRC020 










$DISKN 3-7 




Wait for file- 
name directory 
block. 









No 



DL2IC5 


3-70 


Read ne 
to alterri 
buffer. 


xt block 
ate 




SRC035 




Increment pointer 
to next entry. 



SRC050 



Save addresses 
for other routines. 



SRC900 



Return to 
Calling Routine 



Yes 



SRC040 



Save disk address 
of file from entry. 
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Figure 3-78, Search Filename Directory Subroutine (SRCHFN) Flowchart 
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Null Directory Entry Subroutine-STORIN (Figure 3-79) 

• STORIN creates an entry in the null directory. 

If the entry cannot be created, an indicator is set to note that the file library should be 
packed. If the null space is contiguous to that of any other entries in the directory, 
STORIN adjusts that directory entry to include the space. 




Move new entry 
to directory. 




Initialize for 
search of null 
directory. 



STOR80 




Set error code; 
entry cannot 
be made. 




STOR20 



Increment pointer 
to next entry. 



STOR47 r 



Calculate high 
address of null 
space in last 
entry. 



Yes 



Move new entry 
to next directory 
location. 



Calculate high 
address of null 
space in low 
entry. 




Combine null 
space with 
low entry. 



STOR30> 



STOR48 



Add null space 
to directory 
entry. 



Figure 3-79. Null Directory Entry Subroutine (STORIN) Flowchart 
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contiguous entries. 
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Return to 
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Filename Directory Entry Subroutine-STUFID (Figure 3-80) 

• STUFID inserts one entry in a filename directory. If the directory is full, STUFID 
tries to create a new block automatically. 

STUFID adds a filename to a filename directory in the file library. If the directory is 
full, STUFID searches the null directory for a two-sector space to create a new directory 
block. If a space cannot be found, an error indicator is set in $CAERR and an exit to 
STUERR is taken. If the space is found, the new block is created. The write operation is 
started, to restore the affected directory block. 



^ stufid ^ 



Point to location 
of new entry. 




STU010 



Locate end of 
active entries in 
current block. 



STU020 



Move new entry 
to current block. 



Yes 



STU040 



SURCHN 3-81 



Search null directory 
for 2-sector space. 




STU050 



Set Linkage in 
last block to 
new space. 



DL2ICS 3-70 



Write back last 
block to file 
library. 



STU060 



No 



$CAERK 
Figure 3-9 



3 



DL2ICS 3-70 



Write block back 
to file library. 



Build new header 
and move new entry 
to new block. 



DL2ICS 3-70 



Write new block 
to file library. 



STU900 



Return to 
Calling Routine 



) 
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Figure 3-80. Filename Directory Insert Subroutine (STUFID) Flowchart 
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Search Null Directory Subroutine-SURCHN (Figure 3-81) 

• SURCHN searches the null directory for an entry of at least N sectors in size, where 
N is specified by the calling routine in SMNSCT. 

An attempt is made to find an entry in the directory of at least N sectors in length. If a 
directory entry is not large enough, it is added to SMNULT, which is an accumulated 
total of all available space for the file library. If the space required cannot be found, the 
calling program determines if the file library will be packed, by testing if SMNULT is 
equal to or greater than N. If the space is not found, a relative address of zero is returned 
in SMNDEA. If space is found, the relative address of the space is returned in SMNDEA. 



SUR0G2 



Indicate no 
space available 




Search null entries 
for enough space 
to honor request. 



SUR0A2 




No (larger) 



SUR020 lYes 



SUR0A3 



Delete entry by 
shifting remaining 
entries in null 
directory. 



Decrement size of null 
space by incrementing 
starting disk address. 



SUR024 



Update null 
directory header. 



SUR900 



(Return to A 
Calling Routine J 
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Figure 3-81. Search Null Directory Subroutine (SURCHN) Flowchart 
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Track Usage Mask Utility Subroutine-UTKUSE (Figure 3-83) 

• UTKUSE tests and updates the track usage mask in the volume label (refer to Figure 
5-9). 

• The calling source module, assembled with UTKUSE, passes parameters via labels 
located within UTKUSE (Figure 3-82). 

• Entries to UTKUSE are: 

UTKINP— Reads in volume label. 
UTKPRC— Bypass reading of volume label. 

The calling source module can test for space as close to cylinder 10 as possible by moving 
UTKFLG to TKSYLN, causing the initial cylinder number to default to 10. The function 
code (in this case) moved to UTKTYP would be UTKTBF (Figure 3-82). This subroutine 
scans the track usage mask for the first available and consecutive space (TKSCYL). 

Method Used to Displace into Track Usage Mask 

The cylinder number divided by 4 equals the byte displacement into the track usage 
mask. The remainder is used to displace into a table of bit masks; 

If Remainder Is Mask Is 

0 0000001 1 

1 00001100 

2 00110000 

3 11000000 



Label 


Length 


Description 


TKSYLN 


1 


Initial cylinder number. If set to UTKLIM (X'FF'), the initial 






cylinder defaults to 1 0. 


TKSCYL 


1 


Number of cylinders. 


TKSADR 


2 


Core address of volume label. 


TKSDSK 


2 


Disk address of volume label. 


UTKTYP 


1 


Function codes: 






UTKSBN (X'3A')-Assign space. 






UTKSBF (X'3B')-Release space. 






UTKTBF (X'39')-Test for space available. 






UTKTBN (X'38')-Test for space not available. 
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Figure 3-82. Parameters Passed to UTKUSE Subroutine 
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^ UTKINP ^ 
UTKREP | 



^ UTKPRC ^ 


$D|SKN 3-7 


Read volume 
label. 


1 




UTK070/ 



No , 



Valid 
Cylinder 
Limits 



UTK080 l Yes 



Calculate dis- 
placement into 
track usage mask. 



UTK250 



Perform function on 
specified cylinders. 



Error 



I Yes 



UTK600 



Indicate error 
condition. 



(Return to 
Calling Routine 
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Figure 3-83. Track Usage Mask Utility Subroutine (UTKUSE) Flowchart 
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VTOC Utility Subroutine-UTVTOC (Figure 3-85) 

• UTVTOC performs maintenance on the VTOC (refer to Figure 5-10) and volume 
label (refer to Figure 5-9). In version 1, modification 0, the ending disk address of 
the file is the address of the last track used, while in version 1, modification 1, the 
ending disk address of the file is the address of the next available track. After success- 
ful modification of any modification 0 file, UTVOC modifies the ending disk address 
of that file. 

• The calling source module, assembled with UTVTOC, passes parameters via labels 
within UTVTOC (Figure 3-84). An assembly that contains UTVTOC also contains 
UTKUSE (Figure 3-83) to test and update the track usage mask in the volume label. 

• Entries to UTVTOC are: 

UTVDEL— Delete a file. 

UTVEXP-Increase file size. 

UTVSHK-Decrease file size. 

UTVIST- Allocate a new file at specified location, 

UTVDFT— Allocate a new file as close to cylinder 1 0 as possible. 

UTVINF-Obtain information about file. 

Refer to the functions in the description of the calling source module for functions pro- 
vided by this subroutine. 



Label 


Length 


Parameter Name 


Note 


TKSBFI 


1 


System files indicator 


Same as in volume label, Figure 5-9. 


TVSFIL 


8 . 


Filename 


Not required for increasing, decreasing, 








or deleting system files. 


TVSDSK 


2 


VTOC disk address 


Physical disk address of VTOC index: 








X'0024'-R1 








X'0025'-F1 








X'0026 , -R2 








X'0027'-F2 


TKSCYL 


1 


Number of cylinders 


Used to increase, decrease, or allocate 








a file. 


TKCYLN 


1 


Initial cylinder number 


Used when allocating a file at a specific 








location. 
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Figure 3-84. Parameters Passed to UTVTOC Subroutine 
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Read file label 
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Release 
disk space. 
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VTOC index. 



Write the modified 
format 1 entry 
to disk. 
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Read file label 
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Adjust address 
if necessary. 
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Release 
disk space. 



Search VTOC index 
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not a SCP file on the 
disk with the same 
name. 



UTV425 



UTKPRC 3-83 



Allocate 
disk space. 



Build the label. 



$DISKN 3-7 



Write updated 
VTOC index. 



UTV435 



$DISKN 3-7 



Write new or updated 
file label to VTOC. 



UTV460 



UTKPRC 3-83 



Test for, and then 
assign, disk space. 



UTV500 



Set output 
parameters. 



UTV600 




Update fields in 
volume label. 




UTV720 




Return to 
Calling Routine 





$DISKN 3-7 
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Figure 3-85. VTOC Utility Subroutine (UTVTOC) Flowchart 
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Pack File Library Subroutine-#SPACK (Figure 3-86) 

| • #SPACK reorganizes the file library and eliminates imbedded null sectors. 

The null directory is referenced to determine where there are null sectors in the file 
library. All files and directories are moved up the disk to eliminate imbedded null sectors 
until all null sectors are located at the end of the file library. All pointers are updated to 
the new location. The sequence of the records in the file library is not changed. 




SPACKU 



PRINT PACKING MESSAGE AND LOAD OVERLAY 



1 . Call $SPRNT to print packing message. 

2. Call $DISKN to read in null directory. 

3. Call LOADR to load #SPOVL. 



SPA010 



BUILD UPDATE TABLE 



1 . Set sums of .preceding null sectors in each entry. 

2. Build additional entry with null total. 



SPA030 



UPDATE DIRECTORIES 



1 . Call DL2ICS to read in user directory. 

2. Go to SPADUP to update user directory. 

3. Go to SPAPDT to update password entry. 

4. On last password call DL2ICS to write directory. 

5. Exit to #SPOVL. 



^ #SPOVL ^ 







PACK LIBRARY AREA 


1. Move active user files toward the front 
of the file library. 







Return to 
calling program 
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Figure 3-86. Pack File Library Subroutine (#SPACK) Flowchart (Part 1 of 2) 
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SPADUP 







UPDATE USER DIRECTORIES 


1 . Call SPAPDT to update directory header. 

2. Call SPAPDT to update directory entries. 

3. On last entry call DL2ICS to output directory. 







RETURN 



) 




UPDATE DADDR IN ARGUMENT 



1. Find null entry greater thani' argument. 

2. Decrement disk addresses by value in update table. 



RETURN 
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Figure 3-86. Pack File Library Subroutine (#SPACK) Flowchart (Part 2 of 2) 
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ALTERNATE-TRACK Utility Program-#UATRC (Figure 3-87) 

• #UATRC tests, assigns, and unassigns alternate data tracks. 

• The assembly of #UATRC contains this major source module: 

UATRCK-Mainline logic, Figure 3-87 

Two alternatives are available in determining the suspected defective track: (1) specify a 
physical track, or (2) default to the tracks logged in the suspect track log in the volume- 
label sector. Either TEST or ASSIGN is valid in this case. 
#UATRC performs one of four functions: 

1. A suspected operative data track can be unconditionally flagged defective and 
assigned an alternate. 

2. A suspected operative data track can be tested. The track is flagged defective and 
assigned an alternate based on the results of the test. 

3. A flagged data track can be unconditionally restored to operative status. The 
alternate is unassigned. 

4. A flagged data track can be tested. The track is restored to operative status based 
on the results of the test. The alternate is unassigned. 

Data is transferred if it can be read without an unrecoverable error. 
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#UATRC 



UATOOO 



SYNTAX CHECK AND SAVE PARAMETERS 



1 . Enter SDISKS to get disk specification. 

2. Enter SCYLCK to get track specification. 

3. Enter C4BIN2 to get retry count. 

4. Perform syntax check on other parameters. 

5. Exit to #ERRPG via $CAERK on syntax errors. 



UNASSIGN 



UAT100 




ASSIGN 



PROCESS UNCONDITIONAL UNASSIGN 



1. Write normal ID on track to be returned to 
operative status (reset defective flag). 

2. Transfer data from the alternate to operative track 
via $DISKN. 

3. Write normal I D on alternate track. 

4. Remove entry from alternate track table. 

5. Print unassignment messages via $SPRNT. 

6. If data unrecoverable, print error 598 via $SPRNT. 

7. If data recoverable, print DATA RECOVERED 
MSG via $SPRNT. 



UAT300 



TEST 



UAT200 



PROCESS UNCONDITIONAL ASSIGNMENT 



10. 



If no track specified, fetch one from suspect track 
table. If none, exit to #ERRPG via $CAERK. 
Pick an alternate track from available alternates. 
If none, exit to #ERRPG via $CAERK. 
Write alternate ID on chosen alternate track. 
Transfer data from defective track to the alternate 
via DKDISK. 

Write defective ID on defective track. 

Place assignment entry in alternate track table. 

Print assignment messages via $SPRNT. 

If data unrecoverable, print error 598 via $SPRNT. 

If data recovered, print DATA RECOVERED 

message via $SPRNT. 

If track address taken from suspect track table, 
remove entry from table, and repeat steps 1-10 
until all entries processed. 



TEST SUSPECT TRACKS 



7. 
8. 
9. 

10. 



If no track specified, fetch one from suspect track table, if none, exit 
to #ERRPG via $CAERK. 

Pick an alternate from available alternates, if none, exit to #ERRPG 
via $CAERK. 

Write alternate ID on selected alternate. 

Transfer data to alternate from the suspect track via DKDISK. 
Perform surface analysis the specified number of times on suspect 
track. 

If defective, write defective ID on suspect, log assignment in alternate 

track table, and print assignment messages via $SPRNT. 

If track found operative, restore data and track IDs involved. 

If data was lost, print error 598 via $SPRNT. 

If data was recovered, print DATA RECOVERED message via 

$SPRNT. 

If track address was from suspect track table, repeat steps 1-9 until 
all entries have been processed. 



(#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-87. ALTERNATE -TRACK Utility Program (#UATRC) Flowchart 
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ASSIGN Utility Program-#UALLO (Figure 3-88) 

• #UALLO allocates disk space for a system library file or a system work area. 

• The assembly of #UALLO contains these major source modules: 

UALLOC -Mainline logic, Figure 3-88 
UTVTOC-VTOC subroutine, Figure 3-85 
UTKUSE-Track usage mask subroutine, Figure 3-83 
DL2ICS-Disk logical IOCS, Figure 3-70 

Functions of #UALLO are: 

1 . Check the track usage mask in the volume label (Figure 5-9) for contiguous space. 

2. Reset bits in the track usage mask that correspond to the tracks being allocated. 

3. Update other required fields in the volume label. 

4. Create an entry in the VTOC index and a label in the VTOC (refer to Figure 5-10). 

5. Create the null directory, password directory, and * and ** directories for the files 
(refer to Figure 5-11). 
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#UALLO 



Assign 
Library 



No 



UALLOC 




SYNTAX CHECK PARAMETERS, CONVERT 



1 . Enter SDISKS to complete specifications. 

2. Enter $CAERK to print error messages for syntax 
errors. — — — — — — — — — — 

3. Enter SCAN IT to scan across blanks. 

4. Enter SCYLCK to convert track specifications. 

5. Enter $CAERK to print error message if library 
already exists. 



UAL1 20 



CREATE VTOC LIBRARY FILE 



1 . Enter UTVIST to insert library file in VTOC entries. 

2. Enter $CAERK to print error message if space not 
available. 



3. Enter $CAERK to print error message if VTOC full. 



UAL800 



CREATE LIBRARY DIRECTORIES 


1 . Create entries for nu 
** directories. 

2. Enter DL2 ICS to wri 


I, password, pooled, and 
te directories to disk. 



UAL600 



SYNTAX CHECK PARAMETERS 



1 . Enter $CAERK to print message if invalid 
parameters. — — — — ^— — ^ — 

2. Enter SCANIT to scan across blanks. 

3. If no disk specifications, set to assign work area for 
R1 and F1. 

4. Enter SDISKS to complete disk specifications. 

5. Enter $CAERK if disk specified is not initialized.— 



UAL120 




CREATE VTOC WORK AREA FILE 



1. Enter UTVIST to insert work area file. 

2. Enter UTVDEL to delete work area file' if it already 
exists. 

3. Enter $CAERK to print error message if space is 
allocated for another purpose. 

4. Enter $CAERK to print a message if VTOC is full. • 



#ERRPG 
Figure 3-17 
Via $CAERK 



UAL400 



#ERRPG 
Figure 3-17 
Via $CAERK 



PRIME AND LOAD GUFUDI 



1 . Enter $SPRNT to print completion message. 

2. Enter $CARPL to reload and execute GUFUDI. 



(#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-88. ASSIGN Utility Program (#UALLO) Flowchart 
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CONFIGURE Utility Program-#UCNFI (Figure 3-89) 

• #UCNFI creates or modifies the configuration record on cyiinder 0 (refer to Figure 
5-3). 

• The assembly of #UCNFI contains this major source module: 

UCNFIG-Mainline logic, Figure 3-89 

Each device present in the new configuration record is issued a test command before the 
record is written on the IPL'd volume. When configuring up to 3D or 4D, any VTOC 
entries that exist (on the new packs being configured) for scratch files are deleted from 
the VTOC. 



#UCNFI 



UCNFIG 



SYNTAX CHECK PARAMETERS AND SET INDICATORS 



1 . Enter SCANIT to scan across blanks. 

2. Scan component field and set flag for parameters found in component 
field. 

3. Enter $CAERK to print error message if invalid keyword type. ■ 

4. Enter $CAERK to print error message if repetition of parameters or 
invalid combination of parameters. i 

5. Enter $CAERK to print error message if invalid parameter. — 



UCN600 



READ CONFIGURATION RECORD AND CHECK COMPONENT FIELD 



1 . Enter $DISKN to read configuration record. 

2. Update configuration record with entries in component field. 

3. Enter $CAERK to print error message if CRT, 8K, 8 command key 
conflict. — - — ^ __ 



UCN900 



TEST CONFIGURATION RECORD AND MODIFY VOLUME 
IDENTIFICATION TABLE ENTRIES 



1 . Enter MCNFIG to verify hardware and modify configuration indicators 
in NUCLEUS. 

2. Enter $DISKN to write configuration record to disk. 

3. Enter $DISKN to read volume labels and place in volume identification 
table if not present. 

4. Delete entries in volume identification table if disk configuration no 
longer configured. 

5. Enter $CARPL to load and execute GUFUDI. 



#GUFUD \ f #ERRPG 

Figure 3-22 ) Figure 3-1 7 

Via $CARPL J V Via $CAERK 
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Figure 3-89. CONFIGURE Utility Program (#UCNFI) Flowchart 
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COPY File Utility Overlay~#UCPLI (Figure 3-90) 

• #UCPLI copies a file defined by a label in the VTOC to another volume, or reposi- 
tions the file on the same volume. 

• #UCPLI is loaded by #UCDIS (Figure 3-91) when the command is either COPY- 
SYSTEM, COPY-LIBRARY, or COPY-HELPTEXT. 

• The assembly of #UCPLI contains these major source modules: 

UCPLIB-Mainline logic, Figure 3-90 
DL2ICS-Disk logical IOCS, Figure 3-70 

If #UCPLI copies the file to another volume, a new label is created in the VTOC and the 
volume label is updated. If the file is repositioned on the same volume, the existing label 
in the VTOC is deleted, a new label is created, and the volume label is updated. When a 
file is repositioned on the same volume, the old area is no longer accessible, except by a 
disk dump, even if the disk areas did not overlap. 



^ #UCPLI ^ 



UCP100 



SYNTAX CHECK AND LOOK FOR FILES ON SPECIFIED DISKS 



1 . Check if parameter is System Library, or HELPTEXT. 

2. Call SDISKS to decode input/output disk specifications. 

3. Call UTVINF to look for file on output disk. 

4. Call UTVINF to look for file on input disk. 

5. Exit to $CAERK if any errors. 



UCP205 



DELETE AND INSERT FILE TO BE COPIED 



1. Call UTVDEL to delete old file if COPY is to same disk. 

2. Call UTVIST to insert the file in output VTOC. 

3. If COPY-SYSTEM or LIBRARY or HELPTEXT on same disk, 
update pointers in nucleus. 



UCP500 



#ERRPG 
Figure 3-17 
Via $CAERK 



COPY FILE UPDATE PTF LOG 



1. Call DL2ICS to copy file. 

2. If COPY-SYSTEM or LIBRARY or HELPTEXT to new disk, 
update PTF log on new disk. 

3. If COPY-SYSTEM to another disk, copy IPL sector and Nucleus. 

4. If COPY-SYSTEM/HELPTEXT to another disk, copy PTF 
log entries. 

5. Exit to $CARPL to load #GUFUD. 



#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-90. COPY File Utility Overlay (#UCPLI) Flowchart 
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COPY Volume Utility Program-#UCDIS (Figure 3-91) 

• #UCDIS copies the entire contents of a disk volume to another volume. 

• The assembly of #UCDIS contains these major source modules: 

UCDISK-Mainline logic, Figure 3-91 
UTKUSE-Track usage mask subroutine, Figure 3-82 

The DISK parameter causes a track-for-track copy of the entire input volume to the 
output volume with the exception of the error log statistics and program protection 
sectors on cylinder 0 (refer to Figures 5-3 and 5-4). The volume-ID's of both volumes 
are verified prior to each copy operation. 
The following parameters in the volume label (refer to Figure 5-9) are not copied: 

1 . Alternate tracks 

2. Cylinder count 

3. Suspected defective tracks 

4. Volume label 

5. Owner I/D 

6. Track usage mask in its entirety (except in copying the contents of one 200-cylinder 
disk to another 200-cylinder disk) 

On one disk read or write, 12 sectors are transferred on an 8k system and 24 sectors 
are transferred on a 12k or 16k system (12 sectors if 12k and CRT). 
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UCD900 



SYNTAX CHECK ALL DISK SPECIFICATIONS 



Enter $RLOAD to load #UCLIB if LIBRARY, SYSTEM, or HELPTEXT 
specified. 

Enter SDISKS to complete disk specifications. 
Enter SCANIT to scan across blanks. 

Point pointer to beginning of disk specifications after completing all 
syntax checking. 

Enter $CAERK to print error message if syntax errors.- 



Enter $CAERK to print error message if drive 2 not on system. 
Enter $CAERK to print error message if missing parameter. — 



COPY DISK PAIRS, VERIFY VOLUME LABELS, AND CHECK VTOC 
FILE 



1 . Enter $DISKN to read volume labels of disk pairs. 

2. Enter $CAERK and print message if volume labels invalid and enter a 
soft halt. — — — — — — — — — ^ ^— — 

3. Enter UTKPRC to determine if VTOC files exist on output disk, or if 
VTOC files exist on the second 100 cylinders of the input disk when 
copying to a 100-cylinder disk, and enter $CAERK to print message 
if VTOC files exist. ' 

4. Mask inquiry request. 

5. Move alternate track assignments, cylinder count, volume label and 
owner identification to write disk. Adjust track usage mask, if 
necessary. 

6. Determine lesser number of cylinders of disk pair. 

7. Enter $DISKN to write volume label to write disk. 

8. Enter $DISKN to copy IPL sector, configuration record, and VTOC 
tables, to write disk. 

9. Enter $DISKN to copy lesser number of cylinders. 
10. Point pointer to next disk pair if any left. 



No 




#ERRPG 
Figure 3-1 7 
Via $CAERK 
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Figure 3-91. COPY Volume Utility Program (#UCDIS) Flowchart 
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EXPAND Utility Program-#UEXLI (Figure 3-92) 

• #UEXLI changes the disk space allocated to a library file. 

• The assembly of #UEXLI contains this major source module: 

UEXLIB-Mainline logic, Figure 3-92. 
Functions of #UEXLI are: 

1. Check the track usage mask in the volume label (refer to Figure 5-9) for available 
tracks when enlarging the library. 

2. Set or reset bits in the track usage mask to reflect the change. 

3. Update other required fields in the volume label; update the VTOC index and file 
labels. 

4. Update the null directory for the library. 
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#UEXLI 



UEXLIB 



SYNTAX CHECK PARAMETERS 



1 . Enter $CAERK to print error message if syntax errors. 

2. Enter SDISKS to complete file specifications. 

3. Enter SCYLCK to convert number of tracks to number of cylinders. 

4. Enter $CAERK and print error message if no library exists. 



UEX300 




Yes 



UPDATE FILE ENTRIES 



1 . Enter $DISKN to read last entry in null directory. 

2. Decrease sector count in entry if space available to 
contract. 

3. Enter $CAERK to print error message if active files 
exist. 

4. Update cylinder count in directory header. 

5. Enter $DISKN to write null directory to disk. 

6. Enter UTVSHK to contract library file and adjust 
entries in volume label and VTOC entries. 



UEX250 




UPDATE FILE ENTRIES 


1 . Enter UTVEXP to expand library file and adjust 
volume label and VTOC entries. 

2. Enter $DISKN to print error message if space not j 
available. 

3. Enter $DISKN to read null directory. 

4. Update null directory sector count and cylinder 
count. 

5. Create new entry if no more entries available. 

6. Enter $DISKN to write null directory to disk. 







PRIME AND LOAD #GUFUD 



1. Enter $SPRNT to print completion message. 

2. Enter $CARPL to reload and execute #GUFUD. 



(#GUFUD 
Figure 3-22 
Via $CARPL 

BR1139 

Figure 3-92. EXPAND Utility Program (#UEXLI) Flowchart 
INITIALIZE Disk Utility Program~#UII\IIT (Figure 3-93) 

• #UINIT formats and tests all tracks, including alternate tracks. Data tracks found 
defective are flagged and alternate tracks are assigned. 

• The assembly of #UINIT contains this major source module: 
UINITL-Mainline logic, Figure 3-93 

) 
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Functions of #UINIT are: 



1. Clear the data field of all sectors to binary O's. 

2. Flag the addresses on tracks found defective and assign an alternate (refer to 
Figure 3-5) 

3. Create the volume label (refer to Figure 5-9) 

4. For PRIMARY initialization, write instructions on cylinder 0, head 0, sector 0, 
that will cause a hard halt if IPL is attempted. on the volume. 

5. Change the volume-ID with the CHANGE option. 

6. Extend the initialization of an existing pack initialized to 103 cylinders. 

7. Write VTOC index initial error logs. 

8. For secondary initialization, delete all scratch file entries that may have been left 
in the VTOC by the co-resident disk system management programs. 

9. Test for a valid system work area. If an invalid system work area is found, an 
error message results. 



#UII\IIT 



UINOOO 



SYNTAX CHECK AND SAVE PARAMETERS 



1 . Enter SDISKS to get disk-specification. 

2. Enter SALPHA to get OWNERID. 

3. Enter C4BIN2 to get testing count. 

4. Check other parameters. 

5. Exit to $CAERK on syntax errors. 



UIN100 



CHECK FOR PARAMETER CONFLICTS 



If any of the following exist, exit to #ERRPG via $CAERK: 

a) SECONDARY specified for virgin disk, 

b) SECONDARY specified when disk is initialized to machine 
configuration, 

c) Active files in area to be initialized, 

d) Initialization specified beyond machine configuration. 



UIN300 



PERFORM SURFACE ANALYSIS 



1. 

2. 

3. 
4. 



Set starting cylinder address. 

Write ID on track the specified number of times, alternating between 
data patterns of hex 00 and hex 55. 
If an error occurs enter UINERP 



Repeat steps 2 and 3 for all tracks to be initialized. 



Figure 3-93. INITIALIZE Disk Utility Program (#UINIT) Flowchart (Part 1 of 2) 
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UINSEK 




VERIFY CORRECT ID ON ALL TRACKS 



1 . Read back track I D from all tracks via DKDISK. 

2. Check all defective ID's against alternate track table. 

3. If incorrect ID is read, repeat block UIN300 once — If second failure, 
exit to #ERRPG via $CAERK. 



UIN450 



FORMAT CYLINDER ZERO 



1 . If primary initialization, perform the following: 

a) Set up initial volume label SCTR with VOLID and OWNER I D, 

b) Place track usage mask, set on all bits beyond initialized area, 

c) Initialize VOL-LABEL indicators (including CE cylinder status) , 

d) Write initial VTOC index and error log. 

2. Update alternate track table. 

3. Update track usage mask. 

4. Write volume label sector via DKDISK. 

5. MOUNT disk. 

6. Enter SUTOBA to check work areas. 



#GUFUD 
Figure 3-22 
Via $CARPL 



UINERP 




ASSIGN ALTERNATE TRACKS 



Retest suspect track ten times; if no failure, return to calling routine. 
If the track is not on the CE cylinder, select an alternate from available 
alternates; if none, exit to #ERRPG via $CAERK. 
If the track is on the CE cylinder, do not attempt to assign an alternate 
to it. 

Write defective ID on bad track. 
Write alternate ID on selected alternate. 
Place assignment entry in alternate track table 
Print assignment messages via $SPRNT. 
Return to process next track 




BR1140.2B 



Figure 3-93. INITIALIZE Disk Utility Program (#UINIT) Flowchart (Part 2 of 2) 
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PACK Utility Program-#UPACK (Figure 3-94) 

• #UPACK analyzes the disk specification and loads #SPACK (Figure 3-86) to pack 
the library file. 

• The assembly of #UPACK contains this major source module: 
UPACKU-Mainline logic, Figure 3-94. 

^ ffUPACK 

UPACKU 

TEST FOR INITIAL OR SECOND ENTRY 
1 . Test if DPL in $DPLSV is for UPACKU. 



) 




Yes 



UPACKO 



SYNTAX CHECK AND LOAD SPACKU 



1 . Call SDISKS to decode disk specification. 

2. Set user library base address. 

3. Exit to $CAERK on any errors./ 



4. Call $RLOAD to load and exit to SPACKU. 



UPACK020 



PRINT UNITS ALLOCATED AND AVAILABLE 



1. Call $DISKN to read null directory. 

2. Calculate disk units available. 

3. Calculate disk units allocated. 

4. Call $SPRNT to print message. 

5. Exit to $CARPL to load #GUFUD. 



C*SPACK N S #ERRPG X f #GUFUD 

Figure 3-86 J ( Figure 3-17 ) ( Figure 3-22 

Via $R LOAD J \ ^ Via $CAERK J y Via $CARPL 

BR1141 

Figuie 3-94. PACK Utility Program (#UPACK) Flowchart 
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PTF Utility Program-#UPTFI (Figure 3-95) 

• #UPTFI applies program temporary fixes to components residing in the system 
program file or to the help text file. 

• For PTF operating procedures, refer to "PTF Commands" in Section 6. 

• The assembly of #UPTFI contains these major source modules: 

UPTFIX-Mainline logic, Figure 3-95 
DL2ICS-Disk logical IOCS, Figure 3-70 

The PTF HDR (header) statement specifies the PTF identification, the disk to which 
the PTF is to be applied, and the disk from which the PTF will come, if it is from disk. 
Next, the PTF statement specifies the program name or help text component name and 
the system or help text release level. Then, one or more DATA statements are entered, 
specifying the core address and data of the patch or patches to be made. Multiple PTF's 
may be applied by specifying a new PTF statement and DATA statement(s) for the pro- 
gram or help text component to be fixed. 

The components are updated when the PTF END statement is issued. This update con- 
sists of: 

1. Modifying the specified locations within the component(s). 

2. Updating the PTF log (refer to Figure 5-2). 

3. Deleting the system work area (if there is one) to force the modification of a 
program in the system work file. 
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UPT115 



ENABLE KEYBOARD 



Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 



#UPTFI 




SYNTAX-CHECK INPUT LINE AND PERFORM INITIALIZATIONS 



1. Print error message and exit to $CAIPL if 'PTF' is in the procedure. 

2. Exit to $CAERK to load #ERRPG (the error program) if anything except 
optional blanks and EOS follow the keyword. 

3. Read the volume label of the current disk. 

4. Exit to $CAERK if there is no work area assigned on this disk. 



UPT100 



Yes 




1. Point @XR to input line. 

2. Set off command keys only 
indicator in system com- 
munication area. 

3. Loop until the keyboard is 
not busy. 



UPT105 



UPT250 



ENABLE CARD INPUT 



1. Point @XR to input line. 

2. Branch to $$PRES to enable 
card input. 

3. Branch to $$CDBS to test for 
card input complete, and loop 
until the keyboard busy 
indicator goes off. 

4. Branch to $SPRNT to print 
the input line. 



GET NEXT LINE FROM DISK 



If an internal indicator to read 
a sector is set on, read the next 
sector of the PTF file by call- 
ing DL2ICS; set off the indica- 
tor to read; point @XR to the 
first column of the buffer to 
which the sector is read. 
If an internal indicator to read 
a sector is set off, point @XR 
to the second card-image in 
the buffer and set the indicator 
to read on. 



UPT125 



UPT130 




HEADER STATEMENT 



Take error exit if a Header was found before. 
Syntax-check line for PTF identification, check- 
sum, disk specification to which PTF will be 
applied, and optional disk specification if PTF 
is coming from a disk file. 

Take error exit if an error exists in any parameter. 
Take error exit if '.BS' was the first part of the 
PTF identification and the disk specified does not 
contain a system program file. 
Take error exit if second disk was specified and the 
disk does not contain a PTF file; or if the PTF file 
exists but does not contain the specified PTF. 
Save helptext disk address and system pro- 
gram file disk address. 




ERROR EXIT 



1 . If input is from disk, print 

line in error by calling $SPRNT. 

2. Print error message. 

3. Restore checksum if the check- 
sum routine, CSUMCK, was 
called for this line. 




Figure 3-95. PTF Utility Program (#UPTFI) Flowchart (Part 1 of 2) 
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UPT470 




PTF STATEMENT 



1 . Take error exit if a PTF statement was found 
before or if no HEADER statement has been found. 

2. Syntax-check line for component name, release 
level, and checksum. 

3. Take error exit if an error exits in any parameter. 

4. If a help text component was specified, read 
the first sector of the help text to get the 
release level, set the component starting core 
address to X'0000' and establish the starting 
disk address of .the component specified. 

5. If a system program file component is specified, 
search the system directory to find the component 
entry; save the component's relative disk address 
and starting core address. 



UPT580 




DATA STATEMENT 



2. 



Take error exit if a PTF statement was not found 
previously. 

If this is the first DATA statement, initialize 
information for GPUTIT and DL2ICS. 
Convert core address to hex and subtract.the com- 
ponent starting core address from it, leaving this 
displacement in GPUSMT. 

Convert patch data to hex and save in GPUSMT. 
Save length of patch bytes in GPUSMT. 
Mask against interrupts. 

Call GPUTIT to write the DATA to virtual memory. 
Allow interrupts. — 



#UPOVL 




UPT690 



PERFORM ACTUAL PATCHING TO DISK 



10. 



11, 



Prime GRABIT buffers with first two sectors of 
virtual memory. (Call $DISKN) 
Make initial call to GRABIT. 
Call GRABIT to get one line of patch data. 
Increment program disk address by one sector, 
while subtracting one sector from patch displace- 
ment address, until displacement address is less 
than one sector. 

Read two sectors of the program to core. 
Patch program. 

Write the two sectors of the program back to disk. 
Branch to UPO760 to get more patch data until an 
EOF line is found. 

Read the PTF log to core, update it, and write it 
back to disk. 

If a work area Is present, set a 'VTOC-DE LETE' 
command in the input line buffer and call 
#ECMAN. . 

Else, exit to $CAIPL. — ^— ^— — — 



END STATEMENT 



3. 



Take error exit if at least one 
DATA statement was not 
found. 

Syntax-check line for valid 
checksum. 

Call GPUTIT to write an EOF 
line to disk in virtual memory. 
Call $R LOAD to bring to core 
#UPOVL (the overlay program). 



#ECMAN 



#GUFUD 
Figure 3-22 
Via $CAIPL 
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VTOC-DELETE Utility Program-#UDELV (Figure 3-96) 

• #UDELV deletes System/3 BASIC files from a specified volume. If VTOC-DISPLAY 
is specified, the program #UDISV (Figure 3-97) is loaded. 

Functions of #UDELV are: 

1. Delete the file label in the VTOC and the VTOC index entry (refer to Figure 
5-10). 

2. Set bits in the track usage mask in the volume label (refer to Figure 5-9), releasing 
the tracks occupied by the file. 

3. Update other required fields in the volume label. 

4. Update required fields in the nucleus. 
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#UDELV 



#UDELV 



SYNTAX CHECK AND DETERMINE SECONDARY KEYWORD 



1. Syntax check command. 

2. If secondary keyword is DISPLAY, bring in overlay #UDISV via $RLOAD. 

3. If secondary keyword is DELETE, check for '-ALL' following it. 

4. Syntax check input line. 

5. Set on disk-drive bits in physical disk addresses. 

6. Exit to #ERRPG on errors via $CAERK. 




Yes 



FILES 



HELPTEXT 
PTF 

LIBRARY 
WORKAREA 



1 



i 

L _ _ s ^. T ^y _ _J 



I 



UDE220 



UDE075 




ENTER ROUTINE TO DELETE ALL FILES 


1 . Set internal indicator to delete all files. 

2. Process PTF log. 

3. Modify IPL sector on specified disk. 

4. Set the indicators in the nucleus. 

5. Set the indicators for UTVTOC to delete each file 
one at a time. (Makes five calls to this routine 
with no error checking for file not found.) 

6. Branch to SUTOBA to check for a WORKAREA. 







#GUFUD 
Figure 3-22 
Via $CARPL 



DETERMINE AND DELETE SPECIFIED FILE 



Determine file to be deleted and set indicator for UTVTOC. 

If either SYSTEM or HELPTEXT was specified, delete corresponding 

entries from the PTF log. 

If SYSTEM was specified, write a halt to the IPL sector of the specified 
disk, and if that was the disk IPL'ed from, come to a hard halt via 
$CAERK. 

Set appropriate indicators in the nucleus. 

Go to UTVTOC to delete the specified file and set up the volume 
label, the VTOC index, and the file entry in the VTOC. 
Exit to $CAERK if the specified file was not present. 
Branch to SUTOBA to check for a WORKAREA. 



#GUFUD 
Figure 3-22 
Via $CARPL 



Figure 3-96. VTOC- DELETE Utility Program (#UDELV) Flowchart 
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VTOC-DISPLAY Utility Overlay-#UDISV (Figure 3-97) 

• #UDISV displays VTOC label information from a specified volume on the system 
printer. 

• #UDISV is loaded by #UDELV when the command is VTOC-DISPLAY. 

• The assembly of #UDISV contains this major source module: 

UDISVT-Mainline logic, Figure 3-97 
#UDISV displays the following information: 

1. Volume-ID. 

2. Owner identification. 

3. Alternate track assignments. 

4. Filename, starting address, size, and file type for each file in the VTOC. 

5. Initialized disk size. 

6. Number of unused VTOC file entries. 

7. Co-resident disk system management program files (starting address, size, and 
file type). 
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0UDISV 



UDI050 



SYNTAX CHECK INPUT LINE AND DETERMINE DISK-DRIVE 
SPECIFIED 



1 . Syntax check and determine disk-drive specified via SDISKS. 

2. Syntax check to end of input line. 

3. Set up DPL addresses with disk-drive specification as determined by 
SDISKS, 

4. Exit to #ERRPG via $CAERK on errors. 



UDI200 

GET VOLUME LABEL AND PRINT INFORMATION FROM IT 



1 . After checking for disk initialization, read the volume label from 
specified disk via MINITL. (Exit to #ERRPG via $CAERK on 
errors.) 

2. Print via $SPRNT: 

a) Disk label, 

b) OWNERID, 

c) Initialized disk size. 

3. Convert binary defective track specifications to decimal via C2DEC5. 

4. Print via $SPRNT the defective and alternate tracks, or a message 
indicating that there are none. 



UDI400 



GET VTOC INDEX AND VTOC AND PRINT INFO ON VTOC FILES 



1 . Read VTOC index and VTOC from specified disk via $DISKN. 

2. Check VTOC index for the presence of VTOC files. 

3. Go to the VTOC entry as located by the index and print via $sprnt: 

a) Filename of file, 

b) Starting address of the file, ) Binary to decimal conversion 

c) Size of the file, ) via C2DEC5 
d} File type — { BASIC or non-BASIC). 

4. Print via $SPRNT, the number of VTOC file entries available, as 
specified in the VTOC index. (Binary to decimal conversion via 
C2DEC5). 

5. If there are no VTOC files present, print message indicating that 
there are none (using $SPRNT). 



(#GUFUD 
Figure 3-22 
Via $CARPL 

BR1144A 

Figure 3-97. VTOC-DISPLAY Utility Program (#UDISV) Flowchart 
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Refer to "Maintenance Utility Aid Program— #ZUTMO" in Section 6 for maintenance 
utility aid operating procedures. 

Maintenance Utility Monitor-#ZUTMO (Figure 3-99) 

• #ZUTMO performs these service aid functions: 

CD— Core dump 
DD-Disk dump 

VM-Virtual memory dump (accomplished by #ZDUMP, Figure 3-101) 
CP-Core patch 
DP-Disk patch 
DC-Disk compare 
DW— Disk write (copy sector) 
H-Restore core and halt 
R-Restore core and return to #GUFUD 
T— Reverse the program load trace option 
| M— Library map and test 

• The assembly of #ZUTMO contains these major source modules: 

ZUTMON-Monitor and all functions except CP and M, Figure 3-99 
DL2ICS-Disk logical IOCS, Figure 3-70 

#ZUTMO is loaded by doing a system stop, system reset, and a system start, or by 
branching to core address 0. A branch to NPAUSD in the system nucleus is made 
at location 0 to save core. The CD and CP functions reference the saved core via 
the DPL used by NPAUSD. If the high limit of saved core is on a 4k boundary, it 
is assumed this address is the end-of-core address. Figure 3-98 is a sample core map 
showing #ZUTMO. 
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ZUTPOL 



#ZUTMO 



ZUTOSR 



SELECT OPTION TO BE 
PERFORMED 



Check line printer status. 
Save status of printer and system 
Enter $$PRNT to print choice, 
after issuing a carriage return. 
Enter SCANIT to check data. 
Determine function: 

Core dump 

Disk dump 

Core patch 

Disk patch 

Disk compare 

Disk write 

Virtual memory dump « 
Restore saved core, halt 
Change trace switch — 
Return to system 



Library map and test 



#ZLBMA 
Figure 3-102 
Via #RLOAD 



3- 



ZUTTFL 




TRACE 



1 . Reverse trace switch setting. 



ZUTRET 




RETURN 



1 . Alter address in $PAUSD. 

2. Restore printer and system 
status. 



ZUTPPR 



PRINT MESSAGES, SET 
PARAMETERS 



Set message dependent on 
entry. 

Enter $$PRNTto print 
messages. 

Enter SCANIT to check input. 
Pack data. 

Set address parameters. 

Exit to function: 

Core dump ^— — — 
Disk dump ' 
Core patch — — 
Disk patch — — — 
Disk write — — - 



Disk compare 






ZUTVMD 



VIRTUAL MEMORY DUMP 



1. Set messages for line numbers. 

2. Enter $$PRNT to print request. 

3. Enter SCANIT to check data. 

4. Enter C4BIN2 to convert data. 

5. Enter DL2ICS to read in 
ZDUMPV. 

6. Enter ZDUMPV to dump 
virtual memory. 

7. Restore #ZUTMO. 




ZUTHLT 




HALT 



1 . Restore printer and system 
status. 



$RSTR 
Figure 3-12 






ZUTDPO 




DISK PATCH 


1 . Set indicators for disk patch. 

2. Exit to patch disk like saved 
core. 


9 




ZUTCPO 


CORE/DISK PATCH 


1. Enter $$PR NT to request data. 

2. Enter $$PRES to get data. 

3. Check for valid data. 

4. Enter $$PRNT for error and 
print '?'. 

5. Convert data to hexadecimal. 

6. Determine real or saved core. 

7. Enter DL2ICS to move saved 
core/disk data to buffer. 

8. Patch core/disk. 
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Figure 3-99. Maintenance Utility Monitor (#ZUTMO) Flowchart (Part 1 of 2) 
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ZUTDDO 




ZUTDWO 



DISK DUMP 



7. 



Enter $$PRNT to request sec- 
tor count, 

Enter SCANIT to check input. 
Enter C4BIN2 to convert data. 
Convert disk addresses to hexa- 
decimal characters. 
Enter $$PRNT to print head- 
ings. 

Enter $DISKN to move sector 
to buffer. 

Exit to perform disk dump 
like a dump of saved core. 



ZUTCDO 




DISK WRITE 



1. Enter $DISKN to read sector 
to be written. 

2. Enter $DISKN to write read 
sector to specified address. 





CORE/DISK DUMP 


1. 


Determine real or saved core. 


2. 


Enter $$PRNT to print 




headings. 


3. 


Enter DL2ICS to move saved 




core or disk data to buffer. 


4. 


Convert data to hexadecimal 




characters. 


5. 


Interpret hexadecimal 




characters. 


6. 


Enter $$PRNTto dump edited 




line. 


7. 


Terminate dump at high limit 




or end of core. 




ZUTDCO 




DISK COMPARE 



9. 



Enter $$PRNT to request sec- 
tor count. 

Enter SCANITto check input. 
Enter C4BIN2 to convert data. 
Enter $DISKN to get sectors 
to be compared. 
Compare sectors. 
If sectors are not equal, com- 
pare byte by byte. 
Enter $$PRIMT to print head- 
ing and data at 1 st non-equal 
byte. 

Continue comparison for all 
sectors specified. 
Restore #ZUTMO. 
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Figure 3-99. Maintenance Utility Monitor (#ZUTMO) Flowchart (Part 2 of 2) 
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VM Dump Overlay-#ZDUMP (Figure 3-101) 

• #ZDUMP interprets and lists the pseudo machine code in virtual memory. 

• The assembly of #ZDUMP contains these major source modules: 

ZDUMPV-Mainline logic, Figure 3-101 
DL4ICS-System work file IOCS, Figure 3-70 

• #ZDUMP is loaded by the maintenance utility monitor (Figure 3-99). The return entry 
in #ZUTMO reloads the overlay portion of #ZUTMO after completing the virtual- 
memory dump (Figure 3-98). 

A validity check is made on the pseudo op-codes although it is assumed the pseudo 
machine code is correct in virtual memory. Output is on the system printer, one line 
for each pseudo machine instruction. Each line contains the virtual-memory address, a 
mnemonic op-code and operand, and the actual hexadecimal pseudo instruction. The 
statement and image header op-codes also generate the BASIC statement line number in 
the output line. 

#ZDUMP contains a pseudo op-code branch table (Figure 3-100). The actual op-code 
indexes the table. 



Branch Table Entry (six bytes) 


0 


1 


2 


3 


4 


5 


Address 


Length 


Mnemonic 



1 Pseudo Instruction Length 

Address of Routine in #ZDUMP to 

Process this Op-Code 

Note: The table contains one entry for each pseudo op-code. 

BR1147A 

Figure 3-100. #ZDUMP Branch Table 
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#ZDUMP 



VIRTUAL MEMORY DUMP 



1 . Set program. for long precision if required. 

2. Enter DL4ICS to get a virtual memory page. 

3. Set line pointer and virtual address pointer. 

4. Clear output buffer. 

5. Move op-code mnemonic to output buffer. 

6. Branch to op-code processing routine. 

7. Enter CVBHEX to convert pseudo instruction to 
EBCDIC. 

8. Move EBCDIC instruction to output buffer. 

9. Move instruction virtual address to output buffer. 

10. Enter $$PRNT to print the output buffer. 

1 1 . Update pointers. 

12. Exit to $CAERK on errors to load #ERRPG. 




No 



Yes 



#ZUTMO 
Figure 3-99 



Figure 3-101. VM Dump Overlay (#ZDUMP) Flowchart 
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Library Mapping Overlays (Figure 3-102) 

• These maintenance utility overlays map and test the directories and files in the 
File Library. 

• There are five overlays in this group: 

#ZLBMA-Mainline entry routine. This routine calls one of the option overlays. 
#ZLlMA-Option 1 overlay. Maps null and password directories. 
#ZL2MA-Option 2 overlay. Maps a specified password. 
#ZL3MA-Option 3 overlay (part 1). 
#ZLVRL-Option 3 overlay (part 2). 



| Maps the entire library. 



• #ZLBMA is loaded by the maintenance utility monitor (Figure 3-99). Each option 
reloads the maintenance utility monitor after completion of the option or if the 
option overlay is interrupted. 

• All output (maps and error messages) is displayed on the matrix printer. 
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#ZLBMA 



^ #ZL1MA ^ 



ZL1MAP 




LIBRARY MAP OPTION 1 OVERLAY 


1. Enter DL2ICS to read the null 
directory into core. 

2. Enter $$PRNT to print headings. 

3. Process and print the entries from 
the null directory. 

4. Enter DL2ICS to read the password 
directory into core. 

5. Process and print the entries from 
the password directory. 







#ZUTMO 
Figure 3-99 



ZLBMAP 



LIBRARY MAP ENTRY 


1. 


Enter $$PRNT to print the 




option choice message. 


2. 


Enter SCANIT to check the 




message response. 


3. 


Enter $$PRNT to request 




the library address. 


4. 


Enter SCANIT to check the 




library address response. 


5. 


Determine option. Load 




correct phase from the 




program library. 




LIBRARY MAP OPTION 2 OVERLAY 



6. 



Enter DL2ICS to read the null directory. Test 
the configured disk size against the library 
address. 

Enter $$PRNT to print headings. Enter $$PRNT 
to request a password (PSWD). 
Enter SCANIT to check the password response. 
Enter DL2ICS to read the password directory. 
Scan the password directory for a match to the 
password response. If not found, print error and 
exit to #ZUTMO. 

Enter DL2ICS to read in the first user directory 
block (UDB). 

Process and print the filenames, testing non- 
program-generated files by scanning them in 
line number order. Also test the FIT. Test 
program-generated files for valid data and the 
presence of an EOF. 

Repeat steps 6 and 7 for each user directory 
block under the requested password. 



#ZUTMO 
Figure 3-99 



BR2672.1 



Figure 3-102. Library Mapping Overlays (Part 1 of 2) 
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#ZL3MA 



ZL3MAP 



LIBRARY MAP OPTION 3 OVERLAY 



1. Enter DL2ICS to read the null directory into core. 

2. Enter $$PRNT to print headings. 

3. Enter $DISKN to read the volume label from the IPL'd disk volume. 

4. Test if the work area is defined. If it is not, test if the work area tracks are unused. 



ZLB050 




Print 
error 
message 



#ZUTMO 
Figure 3-99 



NULL AND PASSWORD DIRECTORIES 



4. 



Set indicators in the nucleus communications area to no work area. 

Build buffer entries for each null directory entry. If the buffer count equals or exceeds 32, 

store 3 sectors of the buffer and continue processing null entries. 

Enter DL2ICS to read the password directory into core. Build buffer entries for user 

directory blocks and files. After processing each user directory block, if the buffer count 

equals or exceeds 32, store 3 sectors of the buffer and continue processing user directory 

entries for this password. 

Repeat the process for each password. 



^ #ZLVRL 

ZLVRL3 



SORT ROUTINE 



1. Read the first 9 sectors of the buffer area into core and sort the entries by relative address. 

2. If the entry count exceeds 96, store the first 3 sectors, shift the next 6 sectors to the front of 
the buffer, and read in the next 3 sectors from the buffer area. Repeat the process until all 
sectors are sorted by relative address. 

3. If the original total count exceeded 96, repeat the sorting technique, decrementing the count 
by 64 on each pass. 







PRINT MAPPING 



1 . Enter $$PRNT to print headings and entries for the null and password directories. 

2. Enter DL2ICS to read 9 sectors of sorted entries into core. 

3. Print each entry, testing for gaps and overlaps, and printing messages for errors and coincident 
entries. The entries are converted to the printed format, and printed by entering $$PRNT. 

4. If the total print count exceeds 96, decrement by 96 and enter DL2ICS to read the next 9 
sectors of sorted entries into core. 

5. Repeat the process until all sorted entries are printed. 



C#ZUTMO 
Figure 3-99 

BR2672.2 



Figure 3-102. Library Mapping Overlays (Part 2 of 2) 
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COMPI LER-#BCOMP, #BOVLY (Figure 3-1 19) 

Compiler input is a sequence of BASIC statements in the work file. Output is a sequence 
of pseudo machine code (PMC), constants, and run-time indicators in virtual memory. 
Both the work file and virtual memory reside in the system work area on disk. 
Refer to Section 7 for: 

1 . How to take a sequential disk dump of virtual memory. 

2. Disk address specifications for the utility dump. 

3. Conversion of virtual addresses to disk addresses (Figure 7-1). 

4. Virtual memory map (Figure 7-2). 

5. How to lay out virtual memory (standard precision). 

6. Example of pseudo instruction references to virtual memory (Figure 7-3). 

7. How to lay out virtual memory (long precision). 

8. How to lay out an execution-time core dump. 

9. Fixed core addresses in execution-time core dump (Figure 7-4). 

Compiler Cycle 

1. Retrieve one BASIC statement from the work file. 

2. Use the type code in the statement as a displacement into the statement branch 
table. 

3. Using the entry in the table, access a PMC generator and branch to it. 

4. Generate a sequence of pseudo machine code (PMC), constants, and/or indicators 
and write these to virtual memory. 

5. Perform steps 1 through 4 until the BASIC statements are depleted. 

PMC in virtual memory is in the same sequential order as the BASIC statements in the 
work file. 

Organization of Assembly Listings 

All modules of the compiler are contained in these two assemblies: 

1. Core resident routines— #BCOMP 

2. PMC generator (statement processor) overlays— #BOVLY 
Core Resident Routines-#BCOMP 

This assembly contains these executable source modules in this physical order: 

BGINIT-Compiler initiator 
BHDIST-Compiler distributor 
BAGETC— Statement input subroutine 
BBPUTC-VM output subroutine 
BCFCON-Constant generator subroutine 
BDSYMB— Symbol translator subroutine 
BECSCN— Character expression PMC subroutine 
BFSCAN— Arithmetic expression PMC subroutine 
BLISTA— Assignment list PMC subroutine 
BMATXR— Matrix reference PMC subroutine 
BRATAB-Branch table subroutine 
BUZDBN— Convert decimal to binary subroutine 
BVDL4T— Disk logical IOCS interface 
BPALET— LET (arithmetic simple) statement processor 
BNRMRK-REM statement processor 
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PMC Generator (Statement Processor) Overlays-#BOVL Y 

This assembly contains these executable source modules in this physical order: 

BNDATA— DATA statement 

BNFDEF— DEF statement 

BPMLET— LET (arithmetic multiple) statement 

BPCLET— LET (character) statement 

BXPUTX-PUT statement 

BKFORX— FOR statement 

BKNEXT— NEXT statement 

BXGETX-GET statement 

BKARIF— IF (arithmetic) statement 

BTPAUS-PAUSE statement 

BKCRIF— IF (character) statement 

BTSTOP-STOP statement 

BKGOTO— GOTO (simple) statement 

BKMGTO— GOTO (multiple) statement 

BKSUBG-GOSUB statement 

BXRSET-RESET statement 

BKRTRN— RETURN statement 

BXCLOS-CLOSE statement 

BPREAD— READ statement 

BPXRSR-RESTORE statement 

BXINPT-INPUT statement 

BNADIM-DIM statement 

BXDPRT— PRINT statement 

BXUPRT-PRINT USING statement 

BNIM AG -Image (:) statement 

BMMATA-MAT statement 

BMGETX— MAT GET statement 

BMINPT— MAT INPUT statement 

BMREAD— MAT READ statement 

BMPUTX— MAT PUT statement 

BMDPRT— MAT PRINT statement 

BMUPRT-MAT PRINT USING statement 

BTRMNT-Compiler terminator (END statement) 

Compiler Labeling Conventions 

Because disk-resident statement processors must communicate with the core-resident 
compiler, a fixed equate module ($B$EQU) has been developed to reference core-resident 
instructions and areas. In addition, the compiler common module (BZCOMN) contains 
an equate section which has been developed to assist in defining the fixed addresses in 
$B$EQU. Essentially, BZCOMN equates reference the same core addresses as $B$EQU, 
except BZCOMN addresses are derived from the assembled code while $B$EQU addresses 
are manually adjusted constants. 

Core-resident modules are coded to reference other core-resident modules, using the 
following conventions: 

• Module Entry Points. Actual entry point label. 

• Module Data/Instruction Fields. Equivalent BZCOMN label. 

Disk -resident statement processor modules are coded to reference core-resident modules 
using the following conventions: 

• Module Entry Points. Equivalent $B$EQU label. 

t Module Data/Instruction Fields. Equivalent $B$EQU label. 
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Virtual-memory references are always specified using the appropriate $V$EQU label. 
Program descriptions use the following conventions, with respect to both core-resident 
and disk-resident modules, for consistency: 

• Module Entry Points. Actual entry point label. 

• Module Data/Instruction Fields. Equivalent $B$EQU label. 
For example: 

• Actual core-resident entry point label— BCFCON 

Referenced from core as- BCFCON 
Referenced from statement processor as— B$FCON 

• Actual core-resident data field label- BFSBKT 

Referenced from core as— BZBCKT 
Referenced from statement processor as— B$BCKT 

Compiler Initialization 

Entry: #BCOMP is loaded, at X'0600', via the nucleus loader function. #BCOMP is 
called directly by the RUN/STEP/TRACE keyword program (#KRUNI) or via the 
EDIT keyword program (#KEDIT). Figure 3-103 is an example of a core map with an 
8k system. 

Compiler Initiator: Functions of the compiler initiator (BGINIT) are: 

• When long precision is indicated, floating point data length and virtual-memory 
addresses are changed in the following core-resident compiler subroutines: 

BBPUTC— Virtual memory output subroutine 
BCFCON— Constant generator subroutine 
BDSYMB— Symbol translator subroutine 
BFSC AN— Arithmetic expression PMC subroutine 

• As many sectors from #BOVLY as possible are loaded into expanded core (12k or 
16k). (The entire contents of #BOVLY can be loaded into 16k.) Entries in the 
processor address table (Figure 3-104) are modified to indicate the overlays resident 
in expanded core. 

• Set compile-time indicators (data file pointer, primary input buffer clear switch). 

• Seek to first cylinder of virtual memory. 

BGINIT exits to the compiler distributor (BHDIST) and is overlayed by disk-resident 
PMC generators during the compilation. BGINIT is not overlayed if 16k expanded core 
is present. 

Accessing PMC Generators 

The pseudo machine code (PMC) generator required to process a BASIC statement can 
be: 

1 . A PMC generator overlay that is not in core. 

2. A PMC generator overlay that is presently in core. 

3. A PMC generator that is permanently in core. 
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#BOVLY 




Order of Execution 



BR1149 



Figure 3-103. RUN Program Name Core Map (8k System), Example 



The compiler distributor (BHDIST) contains a processor address table (Figure 3-104). 
The type code of the current BASIC statement indexes this table and the table contains 
information necessary to access the PMC generators. 

When the required PMC generator is in core, a branch to the generator entry point is 
executed. When the required PMC generator is not in core, the appropriate disk sector 
is loaded into the transient area initially occupied by BGINIT. 

All disk-resident PMC generators reside on the same disk track in the system work 
area. The PMC generator assembly (#BOVLY) is constructed so that each generator is 
contained within a sector boundary (every X'0100' bytes) where possible. Multiple 
generators may occupy the same sector, and a large generator can be segmented into 
two sectors (Figure 3-105). 
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Resolving Virtual -Memory Addresses 

As sequences of PMC instructions are being generated, situations occur where an instruc- 
tion references a line number or virtual-memory location that is currently unknown. 
When these situations occur, an instruction image with missing operand (X'0000') is 
generated. That is, a "hole" is temporarily left in virtual memory. 

Two tables are maintained by the compiler for resolving these virtual-memory 
addresses. Both tables have the same format except for the content of the entries. 

1. A statement address table (Figure 3-106) is created by BHDIST to relate state- 
ment line numbers to the virtual addresses of statement header pseudo instruc- 
tions (STH/IMH). An entry is made in the table prior to processing each new 
statement. 

2. A branch address table (Figure 3-107) is created by BRATAB to relate unresolved 
operands (holes in virtual memory) to line numbers or virtual-memory locations. 

Four types of unresolved virtual addresses can occur in the PMC generators. The 
unknown operand references: 

1 . A line number that has been previously processed. 

2. A line number that has not yet been processed. 

3. The next sequential statement. 

4. Another pseudo instruction that is not associated with a line number. 

These situations are discussed individually in the following paragraphs. 

When the unknown operand references a line number (STH or IMH pseudo instruction) 
that has not yet been encountered or that is already written in VM, the virtual address of 
the hole and the line number are passed as parameters to BRATAB. BRATAB creates an 
entry in the branch address table. Entries in this table are not resolved by the compiler. 
This table, along with the completed statement address table, is passed to the loader 
(#LOADR) for resolution. 
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Processor Address Table (one entry for each statement type code) 



One 3-Byte Entry 


1 


2 


3 


Entry Address 


Sector 



Notes: 

1 . "Entry address" is the entry point to the PMC generator (equal to X'0600' 
plus the displacement into the sector for disk-resident generator overlays). 

2. "Sector" is the sector byte used in the DPL (Figure 5-24) when reading 
from the PMC generator track. A value of X'FF' indicates the generator 
is core-resident. The sector byte of the sector currently in the transient 
area is saved at label BHDDSA in case the same sector is required on 
consecutive compiler cycles. 

3. The transient area where all overlay sectors are loaded is X'0600' to X'06FF'. 

BR1151 

Figure 3-104. Processor Address Table 



r 



Four Sectors 

A 



PMC Gen 1 



1 



PMC Gen 2 



PMC Gen 3 ^ 

m 



Part of PMC Gen 4 



-Slack Bytes- 



Rest of PMC Gen 4 



Notes: 

1 . PMC generator 1 is contained entirely on one sector. The unused area at the end of the 
sector is too small to contain another generator. 

2. PMC generators 2 and 3 occupy the same sector. 

3. PMC generator 4 is too large for one sector. Since only the first sector is loaded by the 
compiler distributor, generators that occupy more than one sector branch to label 
BHDST2 in the distributor, causing the distributor to load the next sector. 

BR1152 

Figure 3-105. Organization of PMC Generators on Disk 



When the unknown operand references the next sequential statement (branch-to-next- 
statement), the next-address switch (BSNXSW) is set in BHDIST and the virtual address 
of the hole is saved as a parameter for BRATAB. BHDIST determines the line number 
of the next statement during normal processing and, because the switch is set, calls 
BRATAB to create an entry in the branch address table. 
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1 . The address field contains the virtual address of the statement header instructions 
(STH or IMH) associated with the line number. 

2. Entries are always in ascending line number order. 

3. Vacant entries contain binary O's. 

4. The 16-sector disk area can contain 1024 entries but never has more than 990 
(the maximum BASIC program size). 

5. X'FFFFFFFF' is inserted in the last (64th) entry of the last table sector before 
it is written to disk by the compiler terminator (BTRMNT). All preceding 
sectors are written by the branch table subroutine (BRATAB). 

BR1153 



Figure 3-106. Statement Address Table 



When the unknown operand references another pseudo instruction in the same PMC 
sequence (statement instruction group), the virtual address of the hole and the virtual 
address of the referenced instruction are passed, as parameters to BRATAB. The virtual 
address of the referenced instruction is always determined by the PMC generator on the 
same compiler cycle (see Figure 3-108 for example). BRATAB processes the virtual 
address the same as when a line number is referenced. 

The lowest possible pseudo instruction virtual address is always greater than the highest 
possible binary line number. This is how the loader (#LOADR) differentiates between 
the two types of entries in the branch address table. 

Core Resident Routines 

Compiler Dlstributor-BHDIST 

BHDIST passes control to the individual pseudo machine code (PMC) generators. (Refer 
to "Accessing PMC Generators.") Since each PMC generator completes processing for a 
single statement, BHDIST expects the next source text character to be the beginning of 
a new BASIC statement. The statement is scanned for the first nonnumeric character 
which should be the statement keyword. BHDIST performs this scan using BAGETC. 
The binary line number is saved for reference by the PMC generators. The statement type 
code is saved to index the processor address table (Figure 3-104). BHDIST bypasses 
disabled statements; bit 0 of the statement type code is on. A statement-header pseudo 
instruction (STH) is generated in virtual memory for each enabled statement. For image 
statements, this STH is later modified to be an image statement header (IMH). 
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Branch Address Entry (4 bvtes) 


1 


2 


3 


4 


Address 


Reference 













































































Branch Address Buffer (in core 


) (64 entries— 1 sector) 



2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


.13 


14 


15 



Branch Address Table (on disk) (16 sectors) 



Notes: 

1 . The address field contains the virtual address of an unresolved pseudo instruction 
operand (hole). 

2. The reference field contains either a line number or the actual virtual address to be 
inserted in the hole. 

3. Vacant entries contain binary 0's. 

4. The 16-sector disk area can contain 1024 entries. If this limit is exceeded, compilation 
is aborted. 
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Figure 3-107. Branch Address Table 

Each PMC generator, except for the compiler terminator (BTRMNT), returns to 
BHDIST to complete the statement processing cycle. Some generators return to BHDIST 
via the REM statement processor (BNRMRK). 

Statement Input Subroutine-BAGETC 

BAGETC reads blocks of packed, segmented BASIC source text from the system work 
file. Core addresses of sequential text characters within these blocks are determined. 
These disk blocks are read in a logically sequential order by following the linkage fields 
in the work file data blocks (refer to Figure 5-15). The text is always presented in 
ascending line number order. The calling routine sets parameters for BAGETC in order 
to access a character position in a text segment. 
Input parameters to BAGETC are: 

1 . B$NUMC-Character skip count. This field contains the relative displace- 
ment between accessed characters. A value of X'FF' accesses (skips to) the 
terminating character (EOS) of the current segment (BASIC statement). A 
value of X'OT accesses the next consecutive text character. A value of XW 
returns the address of the previously accessed character and does not advance 
to a new character. This parameter defaults to X'01' if it is not explicitly set 
prior to entry. 

2. BSGBSW— Bypass blanks switch. On (X'01 ') ignores blanks when advancing to a 
new character. Off processes blanks the same as other text characters. 
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Example: The PMC sequence below contains three branch instructions, two 
of which require resolution by the loader (#LOADR). The arrow atQrefers 
to the next sequential statement. The arrow at@refers to another pseudo 
instruction not associated with a line number. Tne arrow atQyrefers to a 
pseudo instruction whose virtual address is known (since it was previously 
established within the same compiler cycle) at the time when the BRA 
instruction is generated; no entry in the branch address table is required 
in this case. 



0100 LET A, B=5 
0110 



STH 100 

BRA 0000 

. ST A VADR of A 

STF VADR of &WRK 
USF 

STA VADR of B 

STF VADR of &WRK 



(hole) 




STA VADR of &WRK- 

STF VADR of 5 
USF 

■ BRA VADR 



(hole) 



STH 110-4- 



-O 
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Figure 3-108. PMC Sequence (Branch Instructions) 



Output parameters from BAGETC are: 

1 . Index register @XR-Character core address. This register contains a pointer to 
the selected text character as requested by the calling routine. 

2. BSLINE-Line number. This two-byte field contains the binary line number of 
the BASIC statement currently being processed. 

3. B$TYPE-This one-byte field contains the statement type code from the state- 
ment currently being processed. 

4. B$GPTR-Address of selected character. This two-byte field contains the core 
address of the selected text character, and is used as a backup for register @XR. 

Virtual Memory Output Subroutine-BBPUTC 

BBPUTC puts pseudo machine code strings of 1 to 255 bytes into sequential virtual- 
memory locations or stores 256-byte blocks of constants into sequentially descending 
virtual memory pages. BBPUTC is called to perform one of four functions: 

1. Add record-This function code is set by default. 

2. Write page— Function code equated to BSPFWP. 

3. Add error-Function code equated to B$PFAE. 

4. Close-Function code equated to B$PFCL. 

Each function is performed by setting parameter BSPFNC with one of these codes. The 
add record function is performed by default unless B$PFNC is specifically set to an 
alternate code prior to the subroutine call. 
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Add Record: Single PMC instructions or sequences are loaded into consecutive locations 
in the output buffer. Full buffers are written to sequential, ascending sectors (pages) in 
virtual memory. Buffers are padded with at least one EOP pseudo instruction before 
they are written (refer to virtual memory map, Figure 7-2). The core address (B$PCAD) 
and the length minus 1 (B$PNBY) of the PMC string are required input parameters for 
this function. 

Write Page: One full virtual memory page is written to disk from the compiler constant 
buffer. This function is used to write data blocks containing generated constants into 
sequentially decreasing virtual memory pages beginning with the base constant address 
(see BCFCON). 

Add Error: This function is used to record compiler-generated errors. At the first execu- 
tion of this function, virtual address pointers are reset, the compiler error switch 
(B$ERSW) is set, and the add-record and write-page functions are disabled. Each add- 
error function puts a three-byte error entry into virtual memory using the method 
described for the add-record function. These error entries are written over PMC 
sequences previously generated. The three-byte error entry consists of an error defini- 
tion code (message number in hexadecimal) followed by the associated BASIC statement 
line number. The error code is passed as an input parameter at label B$PERC. The line 
number is taken from area B$LINE where it is normally stored. 

Close: This function fills the PMC instruction output buffer with EOP pseudo instruc- 
tions and writes the full buffer to virtual memory as in the add-record function, closing 
compile-time PMC generation. 

The lowest page number referenced by a write-page function is compared to the page 
currently in the PMC instruction output buffer on each execution of BBPUTC. If an 
overlap occurs, compilation is aborted. 

Constant Generator Subroutine— BCFCON 

BCFCON is called to convert a BASIC source statement constant to internal format, 
put it into virtual memory, and return the virtual address of the first byte of the con- 
stant to the calling routine via label B$BCKT. The type of constant is passed as an input 
parameter via label B$CTYP. Three types of constants can be processed: 

1. Arithmetic constant— Type code set by default, 

2. Character constant-Type code equated to label B$CCON. 

3. Character string constant— Type code equated to label B$SCON. 

On entry, the index register (@XR) points to the first character of the constant in the 
statement input buffer. On exit, this register points to the first non-blank character after 
the constant. (Refer to "Statement Input Subroutine-BAGETC") 

Each constant is generated into a 19-byte work area in a form suitable for virtual 
memory. Constants are loaded in descending order in the constant output buffer. For 
arithmetic or character constants, the constants in the current output buffer are scanned 
and duplicates are not created. No check is made for duplicates of character strings. Full 
buffers are written to contiguous, descending sectors (pages) in virtual memory (refer to 
Figure 7-2). 

Arithmetic Constants: These constants are found in algebraic expressions or data lists, 
and are converted from EBCDIC to unpacked-decimal, floating-point format in the 19- 
byte work area (Figure 3-109). They are converted to packed-decimal, floating-point 
format before they are moved to the constant output buffer. For long precision, modifi- 
cations have been made to the packing and output routines by the compiler initiator 
(BGINIT). (Refer to "Floating-Point Arithmetic") 
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Example; 

12.34567890123456 (arithmetic decimal value) 



Sign (X'FrT = positive, X'Dn' = negative) 




01 23 45 82 (packed decimal floating point— long precision) 



Refer to "Floating-Point Arithmetic" for format of these fields. 
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Figure 3-109. Conversion of an Arithmetic Constant to Unpacked Floating Point and then to 
Packed Floating Point 



Character Constants: These constants (Figure 3-110) are character strings tailored to fit 
1 8-byte character constant fields, and are associated with character variables or character 
array elements. The first character in the input string is a delimiter. The next single 
occurrence of this delimiter is the end of the string. Any paired occurrence of the 
delimiter character is interpreted as a single character in the string. The source character 
string is scanned, checking for delimiters and moving characters to the work area. 



Character Field (19 bytes) 


1 


2 


3 


4 


5 


6 


7 


8 


9 10 11 12 13 14 15 16 17 18 19 


Status 


Character Segment (up to 18 EBCDIC characters) 






Status Byte 




0 


1 


2 


3 


4 


5 


6 


7 


Trace 


T 


/pe 


Character Count 



• 10— Character Reference or Constant Associated with Reference 

• 1 1 —Character Constant Segment (all or part of a character string constant) 
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Figure 3-110. Character Field Format 



Character String Constants: These constants (Figure 3-110) are variable length and are 
not associated with character variables or character array elements. If the length of a 
string exceeds the size of the work area, more than one string segment is constructed 
and moved to the output buffer. Delimiters are processed in the same manner as for 
character constants. 
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Symbol Translator Subroutine-BDSYMB 



BDSYMB is called to analyze all symbols encountered in BASIC statements, allocate 
space in virtual memory, and return the virtual address of the allocated space (or entry 
point of an intrinsic function) via label BSBCKT. The symbol type is analyzed as 
belonging to one of the eight categories listed in Figure 3-111. No values are written 
in virtual memory by this subroutine. 





Allocated Element 
and Length 


Returned 
Virtual Address 


Table 


Table Format 


Arithmetic 

(letter) 

variables 


Packed floating-point 
value; 5 bytes for 




B$SLVT 


29, 2-byte virtual addresses assigned to 
symbols $, #, @, A~Z. 


Arithmetic 

(letter-digit) 

variables 


standard, or 9 bytes 
for long precision. 


B$SLDT 


290, 2-byte virtual addresses assigned to 
($,#,@,A-Z)*(0-9) 


Arithmetic 

array 

reference 


Arithmetic array 
dope vector; 
8 bytes. 


Virtual address of 
first byte of element. 


B$SNAT 


29, 6-byte entries. First 2 bytes contain 
virtual address assigned to symbols $, 
#, @, A~Z. Last 4 bytes contain specified 
array dimensions (two 2-byte values). 


Character 
variable 


Character variable 
field; 19 bytes. 


B$SCVT 


29, 2-byte virtual addresses assigned to 
symbols $$, #$, @S, A$~Z$. 


Character 

array 

reference 


Character array 
dope vector; 
4 bytes. 


B$SCAT 


29, 4-byte entries. First 2 bytes contain 
virtual address assigned to symbols $$, 
#$, @S, A$~Z$. Last 2 bytes contain 
specified array dimension (2-byte value). 


User function 
reference 


User function 
(subroutine) 
virtual address 
execution entry 
point (2 bytes). 


B$SFNT 


29, 4-byte entries. First 2 bytes contain 
virtual address assigned to functions 
FN$, FN#, FN@, FNA-FNZ. Last 2 bytes 
contain virtual address of associated DEF 
statement execution entry point. 


Intrinsic 

function j 
reference 


None 


Entry point to VM- 
resident intrinsic 
funtion subroutine. 


BDSIFT 


24, 5-byte entries containing a 3-byte 
function name and a 2-byte virtual 
address. 


Secondary 

(delimiting) 

keyword 


None 


Virtual address at 
label B$BCKT is not 
changed. 


BDSKWT 


Four 2-byte entries containing first 
2 bytes of each secondary keyword 
(TH, etc.). An additional check is 
made to insure that 'ST' is actually 
the beginning of keyword 'STEP'. 
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Figure 3-111. Symbol Processing in BDSYMB 



In the following examples, the characters $, (, and FN are identifiers for the symbol A: 

A-Arithmetic (letter) variable 

Al -Arithmetic (letter-digit) variable 

A$— Character variable 

A(— Arithmetic array reference 

A$(-Character array reference 

FNA— User function 

LOG— Intrinsic function 

THEN-Delimiting keyword 
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Symbol Tables: The BASIC language has an absolute number of usable symbols. Symbol 
tables in BDSYMB contain entries (initially binary O's) for every possible symbol (Figure 
3-1 1 1). A relative displacement, to the entry corresponding to a symbol, is determined 
by scanning the alphabet reference table (BDSART) for equal or low. 

The first time a symbol is referenced in a BASIC program, space for the associated 
element is allocated in virtual memory. The virtual address of the element is moved to 
the corresponding entry in one of the symbol tables, and also returned to the calling 
routine. Subsequent references to the same symbol return the virtual address from the 
table entry. 

Space in virtual memory for elements is assigned using two virtual-memory address 
pointers: 

B$SFAB— User function addresses and array dope vectors. 
B$SVRB-Variable elements (arithmetic and character). 

The initial value of B$SFAB is X'0000' and is decremented as each user function 
address or array dope vector is allocated space. The resulting virtual address references 
the first byte of the element (example: X'0000' - 8 = X'FFF8'V 

The initial value of B$SVRB is X 6 F536' (XT049* for long precision) and is incre- 
mented as each variable element is allocated space. This address also points to the first 
byte of the variable element. 

The virtual-memory area aerinea" by the initial values of B$SVRB to BSSFAB accom- 
modates all possible elements the user can define in a single BASIC program. Any unused 
area between these addresses, at the end of compilation, is available to the loader 
(#LOADR) for the allocation of small arrays (refer to Figure 7-2). 

Intrinsic Functions: The intrinsic function table is scanned for a match to the BASIC 
name of the function. The virtual address (fixed entry point) from the table is returned 
to the calling routine. 
Input parameters to BDSYMB are: 

1 . Index register (@XR)— Text character pointer. This register contains the core 
address of the first character in the identifier of the symbol to be processed. 

2. B$MRSW— Matrix reference switch. When this switch is on, references that would 
otherwise be interpreted as simple letter variables are interpreted as arithmetic 
array references. 

3. BSFSSW— Function scan switch. When this switch is on, all arithmetic variable 
references are matched against a user-function, dummy-argument identifier. 
Matching references are assigned the dummy argument virtual address rather 
than that derived from a symbol table. 

4. B$FSC1— Function scan identifier (first character). This parameter contains the 
first character of the user-function, dummy-argument identifier during a function 
scan. 

5. B$FSC2— Function scan identifier (second character). This parameter contains the 
digit portion of the user-function, dummy-argument identifier, if present, during 

a function scan. When none exists, the value at B$FSC2 is X'40' (EBCDIC blank). 

6. B$FSVA— Function scan virtual address. This parameter contains the virtual 
address of a user-function-dummy-argument assigned during a function scan. 

Output parameters from BDSYMB are: 

1. Index register (@XR)— Text character pointer. If the symbol is a secondary 
keyword or a letter variable immediately followed by a delimiting keyword, 
this register points to the second character in the keyword. In all other cases, 
the register points to the character following the complete identifier. Blanks 
are ignored. 

2. BSBCKT -Identifies virtual address bucket. This contains the virtual address of 
the leftmost byte of the element associated with the processed identifier. 



Program Organization 3-165 



Licensed Material-Property of IBM 



3. B$ADSW -Address available switch. This switch is on when a virtual address is 
stored in BSBCKT. 

4. BSIFSW-Intrinsic function switch. This switch is on when the symbol is an 
intrinsic function reference. 

5. B$FRSW -Function reference switch. This switch is on when the symbol is 
either a user or intrinsic function reference. 

6. BSCRSW-Character reference switch. This switch is on if the symbol is either 
a character variable or character array reference. 

7. B$KWSW— Expression keyword switch. This switch is on when the symbol is a 
secondary keyword (alone or following a letter variable). 

8. B$HRSW -Matrix reference switch. This switch is on when a matrix-dire ctly 
intrinsic function is encountered. 

Character Expression PMC Subroutine-BECSCN 

BECSCN is called to generate pseudo instructions, in virtual memory, that will stack one 
of the following character expressions: 

1 . Character variable-Generates a stack-character-field (STC) pseudo instruction 
(Figure 3-112). 

2. Character array element-Generates a stack-character-array-element (SCI) pseudo 
instruction preceded by a stack-arithmetic-expression-value (Figure 3-112). 

3. Character literal-Generates a stack-character-field (STC) pseudo instruction 
(Figure 3-112). 



Stack-Character- 
Expression-Field 




Stack-Character- 
Array-Element 



Stack-Arithmetic- 
Expression-Value 

SC1 



(see Figure 3-113) 
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Figure 3-112. Stack-Chaxacter-Expxession-Field 



Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the character expression unless B$NUMC = 0 or switch 
BSCSSW is on. If B$NUMC = 0, the compiler input subroutine (BAGETC) is effectively 
disabled and the text pointer references the first character of the character expression. 
If switch B$CSSW is on, the arithmetic expression PMC subroutine (BFSCAN) was called 
to process the expression, and encountered a $ identifier in the expression. When switch 
BSCSSW is on, the text pointer references the character following the $ identifier, and 
the character reference symbol virtual address is stored in BSBCKT. 
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Arithmetic Expression PMC Subroutine-BFSCAN 

BFSCAN is called to generate stack-arithmetic-expression-values, composed of value 
stacking and arithmetic pseudo instructions, in virtual memory (Figure 3-113). One 
entry to this subroutine generates all pseudo instructions necessary to stack the value 
represented by a single arithmetic expression. An arithmetic expression can be a single 
symbol, or symbols separated by arithmetic operators (+,-,*,/, t , or **). The expres- 
sion can contain signed symbols (unary ~ or + sign). 



Stack-Arithmetic- 
Expression-Value 

NEG or FN1 or FCI 



Stack-Arithmetic- 
Expression-Value 



/ 



\ 



Stack-Arithmetic- 
Expression-Value 

Stack-Arithmetic- 
Expression-Value 

ADD or SUB or MPY 
or DIV or PWR 



Stack-Scalar-Value 



Stack-Vector-Value 



STF or FNO 



Stack-Arithmetic- 
Expression-Value 

SF1 



Stack-Matrix-Value 



Stack-Arithmetic- 
Expression-Value 

Stack-Arithmetic- 
Expression-Value 

SF2 



Note: Stack-expression-values can be nested within a stack-expression-value. 

BR1160 

Figure 3-113. Stack-Arithmetic-Expression-Value 



The unary minus (negative) sign and its quantity must normally be enclosed in paren- 
theses (-B). If, however, the unary operator applies to the leading term of an expression, 
parentheses are unnecessary (- A means negative of A, +A means A). 

The operands in the expression can be any of the following types: 

1 . Arithmetic variables. 

2. Arithmetic array elements. 

3. Arithmetic (numeric) constants. 
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4. Arithmetic (internal) constants. 

5. Intrinsic functions. 

6. User-defined functions. 

7. Subexpressions (those enclosed in parentheses). 

The following major work areas and tables are used in BFSCAN to process arithmetic 
expressions: 

1. Compile-time stack (BFSSTK)— This stack operates as a first-in/last-out queue. 
It has a maximum capacity of 53 two-byte entries (arithmetic operation pseudo 
instructions require two bytes, function pseudo instructions require four bytes, 
and array pseudo instructions require six bytes). 

2. Operand address bucket (B$BCKT)— The virtual address of the last encountered 
operand is saved at this location until it can be output in a pseudo instruction or 
placed in the compile-time stack. The available address switch (B$ADSW) indicates 
when this location contains a usable address. 

3. Current entry (BFSCEN)— This location holds a pseudo op-code and the priority 
of the current arithmetic operation while they are being processed. 

4. Scan routine branch table (BFSTBL)-This table contains a five-byte entry for 
each valid BASIC arithmetic expression character except letters and numbers 
(A-Z and 0-9). Each entry contains the EBCDIC character, the address of the 
routine within BFSCAN that processes the character, the hexadecimal value of 
the pseudo op-code (characters that do not generate a pseudo instruction contain 
X'00'), and the hexadecimal value of the priority code. Refer to this table for the 
priorities of arithmetic operators. 

Priority: Pseudo instructions are generated to conform with the priority of the opera- 
tions within the arithmetic expression. BFSCAN scans the arithmetic expression, from 
left to right, one character at a time. An entry is loaded into the top of the compile- 
time stack for each operational or function/array pseudo instruction that is generated 
(Figure 3-114). 

If the priority of the current entry (BFSCEN) changes to a value lower than or equal 
to that of the last entry loaded into the stack, the stack popper (BFS160) is entered. 
This routine unloads an entry from the top of the stack, builds a pseudo instruction 
from the entry, and deletes the entry from the stack. Entries are unloaded, one at a 
time, as long as the priority of each stack entry is higher than or equal to that of the 
current entry (BFSCEN). 

All entries active in the stack, when the end of the arithmetic expression is reached, 
are unloaded by the stack popper. The virtual-memory output subroutine (BBPUTC) is 
called to move each generated pseudo instruction to the output buffer and write it into 
virtual memory. 

Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the arithmetic expression except when BSNUMC is set 
= 0. With BSNUMC = 0, the register contains the first character of the expression. The 
address in the register on output depends on the type of expression processed: 

1 . Arithmetic expression without a delimiting keyword— The pointer references 
the first nonblank character after the expression. 

2. Arithmetic expression with a delimiting keyword— The pointer references the 
second character of the delimiting keyword. 

3. Character variable— The pointer references the character following the $ identifier. 

4. Character constant-The pointer references the leading delimiter (quote mark). 
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BFSSTK 



BFSPTR 



Compile-Time Stack (106 bytes) 




2-Byte Entry 


1 


2 


Op Code 


Priority 



4-Byte Entry 




3 


4 


Virtual Address 


Op Code 


Priority 



6-Byte Entry 




3 | 4 


5 


6 


Attribute CADDR 


Virtual Address 


Op Code 


Priority 



Notes: 

1 . The op code field contains the pseudo instruction operation code. 

2. The priority field contains the priority of the current arithmetic operation. 

3. The virtual address field is present in the stack for 3-byte function or array 
pseudo instructions. This address is determined by the symbol translator 
subroutine (BDSYMB). 

4. The stack pointer (BFSPTR) contains the location of the next entry to be 
stacked. BFSPTR marks the top of the stack; BFSSTK marks the bottom of 
the stack. 

5. The attribute CADDR field contains the core address of the attribute (array 
usage flags) in an array dope vector. 
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Figure 3-114. Entries in Compile-Time Stack 



Converting Arithmetic Expressions to Pseudo Instruction Sequences 
The logical rules for conversion are: 

1. Perform all conversions from left to right. 

2. Begin conversions at the innermost subexpression level and then proceed outward. 
"Subexpression" refers only to normal parenthetical inner expressions, and does 
not include array reference subscript expressions or function reference argument 
expressions. 

3. Convert all subscript and function argument expressions within the current sub- 
expression level, treating these as independent expressions. 

4. Convert all array and function references within the current subexpression level. 

5. Within the current subexpression level, perform all highest-priority operations 
first, then the next highest, etc., until all operations have been completed. The 
priority of operations is, from high to low: t or **, unary - or + sign, * or /, 
- or +. The unary minus (negative of) sign and its quantity must normally be 
enclosed in parentheses (-B). If however, the unary operator applies to the leading 
term of an expression, parentheses are unnecessary (- A means negative of A, +A 
means A). 

6. The resultant pseudo instruction sequence represents an expression value in the 
next outer subexpression level. Go to number 3 to resolve the next outer subex- 
pression until all levels are resolved. 
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Example: Convert the following arithmetic expression to a pseudo instruction sequence 
(the circled numbers, such as (T) , represent expressions developed as the operation 
progresses): 

A+(A+C{A+1,B)-B)/D(AtB) 

Step 1 . Using rule 2, there are two subexpression levels. The innermost is 
(A+C(A+1,B)-B). The next outer subexpression level is A+expression/D(AtB). 

Step 2. Using rule 3, array reference subscript A+l is converted first. Use items 1 
through 38 in Figure 3-115 (as they apply) for these conversions. A+l is the same form 
as item 7 in Figure 3-115. Therefore, it is converted to: 



STF A 
STF 1 
ADD 



stack-expression-value (7) 



Step 3. Using rule 4, array reference C (expression (T) ,B) is converted (item 30 in 
Figure 3-115) to: 

stack-expression-value (T) 
STF B 
SF2 C( 

Step 4. Insert the resultant pseudo instructions from step 2 (shown within broken 
line) and the sequence is: 



jSTF 



Al 



|STF 1 j 

I ADD | 

STF B 

SF2 C( 



► stack-expression-value (2^ 



Step 5. Using rule 5, there are two operations in the current subexpression level: 
A+expression (2) -B. The priority of operations is, from high to low: t or **, unary • 
or + sign, * or /, - or +. From left to right (rule 1), convert A+expression (5) ; then 
expression (5)"B will resolve this subexpression level. A+expression (2) is converted 
(item 17 in Figure 3-115) to: 



STF A 

stack-expression-value (?) 
ADD 



Step 6. Insert the resultant pseudo instructions from step 4 (shown within broken line) 
and the sequence is: 



STF_ a 

ISTF A" 1 
|STF 1 | 
|ADD | 
ISTF B I 
l_Sf2_C(J 
ADD 



► stack-expression-value (3) 
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Step 7. Expression-B is converted (item 13 in Figure 3-1 1 5) to: 



stack-expression -value (5) 

STF B 

SUB 

Step 8. Insert the resultant pseudo instructions (shown within broken line) from 

step 6 and the sequence is: 

i 

|STF A 



] STF A 
I STF 1 
J ADD 
I STF B 
[SF2 C{ 
L AD_D _j 

STF _ B 

SUB 



► stack-expression-value (J) 



Step 9. Resolution of this subexpression level is complete. The next higher subexpres- 
sion level is A+expression (5) /D(AtB). Using rule 3, array reference subscript AtB is 
converted (item 1 1 in Figure 3-1 1 5) first: 



STF A 

STF B 
PWR 



stack-expression-value (li) 



Step 10. Using rule 4, array reference D is converted (item 28 in Figure 3-115) to: 

stack-expression-value foj 
SF1 D{ 

Step 1 1 . Insert the resultant pseudo instructions (shown within broken line) from 
step 9 and the sequence is: 

[stFa"! 

JSTF B I 
LP W R _ _| 
SF1 D( 



stack-expression-value 



Step 12. Using rule 5, there are two operations in this subexpression level: 
A+expression (4) [step 8] /expression (6) (step 11). The priority of the / is higher 
than the + so convert expression (5) /expression (6); then A+expression (l) will 
resolve this subexpression level. Expression (4) /expression (6) is converted (item 
25 in Figure 3-1 15) to: 

stack-expression-value 

0 (step 8) 
stack-expression-value (6\ (step 11) 
DIV 
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Step 13. Insert the resultant pseudo instructions (shown within broken lines) from 
step 8 and step 1 1 , and the sequence is: 

fSTF A"1 " 



[STF B 
|SUB___ 
rSTF A 
|STF B | 
IPWR I 

DIV 



Step 14. A+expression is converted (item 17 in Figure 3415) to: 
STF A 

stack-expression-value (Y) 
ADD 

Step 15. Insert the resultant pseudo instruction (shown within broken line) from 
step 13 and the sequence is: 



STF_ A 
[STF A~j 
I STF A I 
I STF 1 ] 
• ADD 
jsTF B | 
|SF2 C( | 



ISTF B j 
'SUB j 
| STF A | 
[STF B I 

Ipwr 1 

I SF1 D( j 

L D I V _-J 
ADD 



Step 16. Resolution of this subexpression level is complete. 



|STF A j 
|STF 1 | 
I ADD I 
'STF B | 
]SF2 C< I 
ADD ! 




ADD 




3472 
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Item 


Subexpression 


Pseudo Instruction Sequence 


1 


A 


STF A 


2 


+A 


STF A 


3 


-A 


STF A 
NEG 


4 


expression 


stack-expression-value 


5 


+expression 


stack-expression-value 


6 


-expression 


stack-expression-value 
NEG 


7 


A+B 


STF A 
STF B 
ADD 


8 


A-B 


STF A 
STF B 
SUB 


9 


A*B 


STF A 
STF B 
MPY 


10 


A/B 


STF A 

QTP R 
O I r D 

DIV 


11 


At B or A**B 


STF A 
STF B 
PWR 


12 


expression+B 


stack-expression-value 

STF B 

ADD 


13 


expression- B 


stack-expression-value 

STF B 

SUB 


14 


expression*B 


stack-expression-value 

STF B 

MPY 


15 


expression/B 


stack-expression-value 

oi r d 

DIV 


16 


expression! B or 
expression**B 


stack-expression-value 

STF B 

PWR 


17 


A+expression 


STF A 

stack-expression-value 
ADD 


18 


A-expression 


STF A 

stack-expression-value 
SUB 


19 


A*expression 


STF A 

stack-expression-value 
MPY 


20 


A/expression 


STF A 

stack-expression-value 
DIV 


21 


At expression or 
A**expression 


STF A 

stack-expression-value 
PWR 
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Item 


oUDcXpr nbblOll 


rSBUQU 1 fla ITU t»llUil OcL|UcllOc 


22 


expression+expression 


stack-expression-value 
stack-expression-value 
ADD 


23 


expression-expression 


stack-expression-value 
stack-expression-value 
SUB 


24 


expression *expression 


stack-expression-value 
stack-expression-value 
MPY 


25 


expression/expression 


stack-expression-value 
stack-expression-value 
DIV 


26 


expression t expression or 
expression **expressi on 


stack-expression-value 
stack-expression-value 
PWR 


27 


C(A) 


STF A 
SF1 C< 


28 


C(expression) 


stack-expression-value 

or I L/J 


29 


C(A,B) 


STF A 
STF B 
SF2 C( 


30 


C{expression,B) 


stack-expression-value 

STF B 

SF2C( 


31 


C(A,expression) 


STF A 

stack-expression-value 
SF2CI 


32 


C(expression,expression) 


stack-expression-value 

SlaCK-tJXprcbSIOn-Vdl Uc 

SF2 C( 


33 


FNC(A) 


STF A | 
FCI FNC( 


34 


FNC(expression) 


stack-expression-value 
FCI FNC{ 


35 


IFN(A) 


STF A 
FN1 IFN( 


36 


1 FN (expression) 


stack-expression-value 
FN1 IFN{ 


37 


RND 


FNO RND 


38 


DET(C) 


SDO C{ 
MF1 DET 
STF &WRK 



Notes: 



1 . A and B are simple scalar references or constants. 

2. IFN may be any intrinsic function requiring a scalar argument. 

3. C( is the virtual address of an array dope vector. 

4. FNC( is a virtual address pointing to the virtual address of a user-defined 
function. 

5. IFN( and RND are virtual addresses of intrinsic functions. 

6. &WRK is the virtual address of a work area. 
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Assignment List PMC Subroutine— BLISTA 

BLISTA generates stack-variable-address PMC sequences (Figure 3-116), for single 
variable references in a list, in virtual memory. Typical BASIC statements that can 
contain these lists are: 

[LET] 
READ 
INPUT 
GET 

The lists reference these types of elements: 

1 . Arithmetic scalar variable 

2. Arithmetic vector element 

3. Arithmetic matrix element 

4. Character variable 

5. Character array element 



Stack-Variable- 
Address 



Stack-Arithmetic- 
Address 



Stack-Character- 
Address 



, or u 



or , 



Stack-Scalar- 
Address 



Stack-Vector- 
Address 



Stack-Matrix- 
Address 



Stack-Field- 
Address 



Stack-Array- 
Address 



STA 



Stack-Arithmetic- 
Expression-Value 

Stack-Arithmetic- 
Expression-Value 

SA2 



Stack-Arithmetic- 
Expression-Value 

SB1 



Stack-Arithmetic- 
Expression-Value 

SA1 
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Figure 3-116. Stack-Variable-Address 
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The symbol translator subroutine (BDSYMB) determines the virtual address to be 
appended to each address stacking op code. The arithmetic expression PMC subroutine 
determines the pseudo instructions for all array subscript expressions. The pseudo 
instructions are written to virtual memory by BBPUTC. 

Input Text Pointer: Index register @XR contains the core address of the first character 
in the list variable to be processed; following processing, it contains the core address of 
the first nonblank character after the variable reference. 

B$LTYP— List reference type. This indicator is set to X'01' when the list contains 
character references, and is set to X'OO' when the list contains arithmetic references. 

Matrix Reference PMC Subroutine-BMATXR 

BMATXR generates stack-update-matrix-descriptor PMC sequences (Figure 3-117) for 
the processing of arithmetic array references appearing in all MAT statements. These 
PMC sequences are written to virtual memory. The array reference can be a simple array 
name or an array name redimensioned by one or two dimension expressions. 

The virtual address of the array name is determined by the symbol translator subrou- 
tine (BDSYMB); and stack-expression-values for dimension expressions, if present, are 
generated by the arithmetic expression subroutine (BFSCAN). 



Stack-Update- 
Matrix-Descriptor 



Stack-Matrix- 
Descriptor 




Stack-Update- 

1 -Matrix-Descriptor 



Stack-Arithmetic- 
Expression-Value 

SD1 



Stack-Update- 
2-Matrix-Descriptor 



Stack-Arithmetic- 
Expression-Value 

Stack-Arithmetic- 
Expression-Value 

SD2 
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Figure 3-117. Stack-Update-Matrix-Descriptor 



Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the array reference on entry. This register contains the 
core address of the character that delimits the array reference on exit. 

Branch Table Subroutine-BRATAB 

BRATAB resolves virtual addresses for branch pseudo instructions and builds the branch 
address table (Figure 3-107). (Refer to "Resolving Virtual Memory Addresses.") 
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Input parameters to BRATAB are: 

1. BSBRVA-Contains the virtual address that points to the location of the unresolved 
operand. 

2. BSBRLN-Contains a line number or actual virtual address referenced by the 
pseudo instruction with the unresolved operand. 

Disk Four-Track Logical iOCS lnterface-BVDL4T 

BVDL4T is called by the statement input subroutine (BAGETC) to read blocks of source 
text from the work file and by the virtual memory output subroutine (BBPUTC) to 
write pages of PMC to virtual memory. This I/O subroutine converts relative disk 
addresses to physical disk addresses and calls DKDISK in the system nucleus to perform 
the disk I/O operation. The calling sequence, disk parameter list (DPL) format, and 
functions of BVDL4T are the same as for DL4ICS (system work file IOCS). Refer to 
DL4ICS (Figure 3-70) and disk parameter list (Figure 3-3). 

PMC Statement Processors (General Specifications) 

Statements are assumed to be free of syntax errors, since they are checked and assigned 
type codes as they are entered into the system work file. Each source BASIC program 
statement is scanned, character by character, in the compiler input buffer. This buffer 
is managed by the statement input subroutine (BAGETC). Index register @XR, updated 
by all modules of the compiler, generally contains the core address of the current char- 
acter to be inspected in the input buffer. On entry to a PMC generator overlay, the 
index register normally references the first character of the statement keyword. When 
returning to the compiler distributor (BHDIST), the index register references the char- 
acter terminating the processed statement. 

Most PMC generator overlays generate a series of pseudo instructions and assign loca- 
tions for data in virtual memory. Pseudo object code sequences for each BASIC state- 
ment are stored, as generated, contiguously in a 256-byte output buffer. This buffer is 
managed by the virtual-memory output subroutine (BBPUTC). 

The pseudo instructions and/or data area assignments for the following group of BASIC 
statement syntactical units are generated by core-resident subroutines called by the PMC 
generator overlays: 

L Constant; constant generator subroutine (BCFCON). 

2. Arithmetic-variable; symbol translator subroutine (BDSYMB). 

3. Arithmetic-expression; arithmetic expression PMC subroutine (BFSCAN). 

4. List of variable-references (arithmetic or character); assignment list PMC 
subroutine (BLISTA). 

5 . Character-expression; character expression PMC subroutine (BECSCN). 

6. Array-dimension-specification; symbol translator subroutine (BDSYMB). 

7. Array -reference; matrix reference PMC subroutine (BMATXR). 

The core-resident subroutines call other core-resident subroutines to process lesser 
elements of the syntactical unit (example: BFSCAN calls BDSYMB to process each 
symbol in an arithmetic expression). BASIC statement syntactical units, not in the 
preceding list, are generated by the PMC generator overlays (example: branch, com- 
pare, and unstack instructions). Exceptions to this are the STH and EOP instructions. 
The statement header (STH) is generated by the compiler distributor (BHDIST). End- 
of-page (EOP) instructions are inserted by the virtual-memory output subroutine 
(BBPUTC). 
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A stack-basic-element (Figure 3-118) can be either a stack-arithmetic-expression-value 
or a stack-character-expression-field. Refer to Figures 3-146 and 3-148 for the stack- 
basic-element syntax used in the PRINT and PUT keyword statements. 



Stack-Basic- 
Element 



(see Figures 3-146 and 3-148) 



Stack-Arithmetic- 
Expression-Value 



Stack-Character- 
Expression-Field 



{see Figure 3-1 13) 



(see Figure 3-112) 

BR1180 



Figure 3-118. Stack-Basic-Element 
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#BCOMP 



BGINIT 



INITIALISE BASIC COMPILER 


1. 


Set input buffer clear switch ($CLBFR) on. 


2. 


Initialize data pointer in $INLNO. 


3. 


Set core-resident routines for long precision 




if required. 


4. 


Coreload all possible statement processors and 




adjust distributor table if $EXFTR i 0. 



1 




BHDIST 



ACCESS NEXT STATEMENT AND SET UP 
PROCESSING 



1. Use BAGETC to get statement type code. 
Access first character of keyword in work file. 

2. Process special conditions: • Truncated statement « 

• REM or deactivated 
statement ■ 

3. Use BBPUTC to generate STH in virtual memory for 
current statement. 

4. Add statement address table entry for current 
statement. 

5. Select statement processor using current statement 
type code. 

6. Coreload statement processor if not already in core. 

7. Branch to execute selected statement processor. 



BHD400 1 

PROCESS TRUNCATED STATEMENT CONDITION 

1 . Use BBPUTC to output error code to virtual memory 
in place of pseudo machine code. 



BNRMRK 




BYPASS BASIC STATEMENT TO EOS CHARACTER 



1 . Use BAGETC to get statement characters from 
work file until EOS is found. 



Figure 3-1 19. Compiler (#BCOMP) Flowchart (Part 1 of 2) 
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BTRMNT 





DAOLUo 







RM n ATA 
DIM Uf-\ I r\ 


► 


uc r 


DIMrUC i 




Ul 1 VI 


R M A D 1 M 

DIMnUI IVI 


>• 


FOR 


BKFORX 


^ 




RXGFTX 





OUOUD 


JRG 


>• 


GOTO (SimDle) 


BKGOTO 


► 


GOTO (Multmle) 


BKMGTO 





1 F (Arithmetic) 


BKARIF 


>■ 


IF (Character) 


BKCRIF 


— = 




IF (Character, String) 


BSTRIF 





Image (:) 


BNIMAG 




INPUT 


BXINPT 


^ 


LET (Arithmetic, Simple) 


BPALET 




LET (Arithmetic, Multiple) 


BPMLET 


^ 




LET (Character) 


BPCLET 


^ 


LET (Character, String) 


BSTRLT 


^ 


MAT 


BMMATE 




MAT GET 


BMGETX 


V- 




MAT INPUT 


BMINPT 


>- 


MAT PRINT 

1 V 1 /i 1 1 1 1 l 1 v 1 


BMDPRT 




MAT PRINT USING 


BMUPRT 




MAT PUT 


BMPUTX 


>- 


MAT READ 


BMREAD 


>■ 

>- 


NFXT 

IN C /\ 1 


RKNEXT 

|_) 1 X 1 \J 1 — S\ 1 


>. 


PAUSE 


BTPAUS 




PRINT 


BXDPRT 


► 


PRINT USING 


BXUPRT 


>- 

>- 


PUT 


BXPUTX 




READ 


BPREAD 


>* 


RESET 


BXRSET 







RESTORE 


BPXRSR 




RETURN 


BKRTRN 


^ 


STOP 


BTSTOP 





END (or EOF) 








TERMINATE COMPILER PMC GENERATION PHASE 



1 . If any compiler-generated errors in virtual memory, 
coreload error codes and exit to $CAERK to load 
7/ERRPG. 

2. If incomplete FOR loop or virtual memory capacity 
exceeded, exit to $CAERK to load #ERRPG. 

3. Close PMC output to virtual memory. 

4. Output residual constants to virtual memory. 
B. Output residual branch table entries to disk. 

6. Output residual statement table entries to disk. 

7. Establish parameters and symbol tables in core 
transfer area for use by #LOADR, 

8. Exit to $RLOAD to load and execute #LOADR. 



#LOADR 
Figure 3-161 



SCAN BASIC STATEMENT TO EOS CHARACTER 



1 . Use BAGETC to get statement characters from " 
work file. 

2. Use BBPUTC to output generated PMC to 
virtual memory. 

3. Use BCFCON to generate and output constants 
to virtual memory. 

4. Use BDSYMB to create variable symbol addresses. 

5. Use BECSCN to generate PMC for character 
expression. 

6. Use BFSCAN to generate PMC for arithmetic 
expression. 

7. Use BLISTA to generate PMC for assignment list. 

8. Use BMATXR to generate PMC for matrix 
references. 

9. Use BRATAB to add unresolved addresses to 
branch table. 

10. Use BUZDBN for decimal to binary conversion. 

1 1 . Use BVDL4T as logical interface to disk IOCS. 

12. Use BBPUTC to output error codes to virtual 
memory rather than PMC when minor compiler 
error occurs. 

13. Exit to $CAERK to load #ERRPG if virtual 
memory or branch table capacity is exceeded. 



PMC=pseudo machine code 



Figure 3-119. Compiler (#BCOMP) Flowchart (Part 2 of 2) 
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Pseudo Instruction Sequences 

Pseudo instruction sequences are detailed in Figures 3-120 through 3-154, These figures 
are in alphabetical order by BASIC statement keyword. As illustrated in the figures, a 
syntactical unit of PMC (pseudo machine code) is normally generated for each syntactical 
unit of the BASIC statement. 



Input to BXCLOS 
(BASIC Statement Syntax) 


Output from BXCLOS 


Syntax of PMC Sequences 


PMC Mnemonics 


CLOSE /' f " ena ™' I 
| character-variable 1 


statement-header 
stack-character-field 
perform-file-activation 
close-file 


STH 
STC 
ADF 
CLS 


('filename' \ 
» (character-variable J 


[stack-character-field 
perform-file-activation 
close-file] ... 


[STC 
ADF 

CLS] . . . j 


Note: When 'filename' has not been defined (cannot be located in compile filename table), no ADF/CLS sequence 
is generated for that file reference. 



BR1182A 

Figure 3-120. CLOSE PMC Syntax 



Input to BNDATA 
(BASIC Statement Syntax) 


Output from BNDATA 


Syntax of PMC Sequences 


PMC Mnemonics 


DATA constant 


statement-header 

branch-next-statement 

define-constant-address 


STH 
BRA 
DCA 


[,constant] . . . 


[define-constant-address] . . . 


[DCA]. . . 




define-data-linkage 


DDL 



BR1183 

Figure 3-121. DATA PMC Syntax 



Input to BNFDEF 
(BASIC Statement Syntax) 


Output from BNFDEF 


Syntax of PMC Sequences 


PMC Mnemonics 


DEF user-function 


statement-header 

branch-next-statement 

branch-return-address 


STH 
BRA 
BRA 


(arithmetic-variable) 


(packed-floating-parameter-area) 


DWA 


= arithmetic-expression 


stack-arithmetic-expression-value 
branch-and-delete-f unction-entry 


(see Figure 3-113) 
BRD 



BR1184 

Figure 3-122. DEF PMC Syntax 
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] Input to BNADIM 

(BASIC Statement Syntax) 


Output from BNADIM 


Syntax of PMC Sequences 


PMC Mnemonics 


DIM array-dimension-specif icatlon 


statement-header 
array-dope-vectors 


STH 


[,array-dimension-specification] . . . 


[array-dope-vectors] . . . 




Notes: 






1 . No pseudo machine instructions, except a statement-header, are generated for the DIM statement. 

2. Refer to Figures 3-1 56 and 3-1 57 for descriptions of array dope vectors. Partial array dope vector Images 
remain core-resident during compilation and are tagged or filled as the array is referenced during execution 
of the BASIC program. Completed dope vectors are stored in virtual memory by #LOADR. 



BR1185 

Figure 3-123. DIM PMC Syntax 



Input to BTRMNT 
(BASIC Statement Syntax) 


Output from BTRMNT 


Syntax of PMC Sequences 


PMC Mnemonics 


END [comment] 


statement-header 

call-supervisor 

define-program-end 


STH 
SVC 
EOF 


Note: End of work file (condition) generates the same sequence. 



BR1186 

Figure 3-124. END PMC Syntax 



Input to BKFORX 
(BASIC Statement Syntax) 


Output from BKFORX 


Syntax of PMC Sequences 


PMC Mnemonics 


FOR arithmetic-variable 


statement-header 


STH 


= arithmetic-expression 


stack-arithmetic-expression-value 


(see Figure 3-113) 


TO arithmetic-expression 


stack-arithmetic-expression-value 


(see Figure 3-113) 


[STEP arithmetic-expression] 


stack-arithmetic-expression-value 


(see Figure 3-113) 




initialize-for-loop 
perform -next-step 
define-work-area 

(unpacked-floating-parameter-area) 


FOR 
NXT 
DWA 
(see note) 


Note: Each unpacked-floating-point-parameter-area is 8 bytes in length for standard precision and 16 bytes in 
length for long precision. 



BR1187 

Figure 3-125. FOR PMC Syntax 
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Input to BXGETX 
(BASIC Statement Syntax) 


Output from BXGETX 


Syntax of PMC Sequences 


PMC Mnemonics 


GET i' f i |ename ' I 
1 character-variable j 


statement-header 

stack-character-field 

perform-file-activation 


STH 
STC 
ADF 


,variable reference 


stack-variable-address 
get-file-element 


(see Figure 3-116) 
GET 


[,variable reference] , . . 


[stack-variable-address 
get-file-element] . . . 


[(see Figure 3-116) 
GET] ... 



Figure 3-126. GET PMC Syntax 



Input to BKSUBG 
(BASIC Statement Syntax) 


Output from BKSUBG 


Syntax of PMC Sequence 


PMC Mnemonics 


GOSUB line-number 


statement-header 

stack-return^address 

branch-unconditionally 


STH 
STA 
BRA 


Figure 3-127. GOSUB PMC Syntax 


Input to BKMGTO 
(BASIC Statement Syntax) 


Output from BKMGTO 


Syntax of PMC Sequences 


PMC Mnemonics 


GOTO line-number 


statement-header 

stack-bypass-address 

stack-line-address 


STH 
STA 
STA 


[,line-number] . . . 


[stack-line-address] . . . 


[STA] . . . 


ON arithmetic-expression 


stack-arithmetic-expression-value 
compute-stacked-address 
branch -stacked-address 


(see Figure 3-113) 

CSA 

BRS 



Figure 3-128. GOTO (Multiple) PMC Syntax 



Input to BKGOTO 
(BASIC Statement Syntax) 


Output from BKGOTO 


Syntax of PMC Sequence 


PMC Mnemonics 


GOTO line-number 


statement-header 
branch-unconditionally 


STH 
BRA 



Figure 3-129. GOTO (Simple) PMC Syntax 
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Innut tn R K A R 1 P 

(BASIC Statement Syntax) 


Output from BKARIF 


^v/ntav nf PMP ^Pniipnrps 


PMP Mnpmnnirs 


IF arithmetic-expression 


statement-h eader 
stack-arithmetic-expression-value 


STH 

(see Figure 3-113) 


relational-operator - T 
arithmetic-expression - ■* 


► stack-arithmetic-expression-value 
-compare-stacked-values 


(see Figure 3-113) 
CMF 




THEN 
GOTO 


line-number 


branch-on-condition 


BRC 


Figure 3-130. IF (Arithmetic) PMC Syntax 


Input to BKCRIF 
(BASIC Statement Syntax) 


Output from BKCRIF 


Syntax of PMC Sequences 


PMC Mnemonics 


IF character-expression 


statement-header 
stack-character-expression-field 


STH 

(see Figure 3-112) 


relational-operator — » 
character-expression - * 


-stack-character-expression-field 
■compare-stacked-values 


(see Figure 3-112) 
CMC 




THEN 
GO TO 


line-number 


branch-on-condition 


BRC 


Figure 3-131. IF (Character) PMC Syntax 


Input to BSTRIF 
(BASIC Statement Syntax) 


Output from BSTRIF 


Syntax of PMC Sequences 


PMC Mnemonics 


IF character-expression 


statement-header 

stack-character-expression-field 

[stack-arithmetic-expression-value 

stack-arithmetic-expression-value 

function-call-no-argument] 


STH 

(see Figure 3-112) 

[STF 

STF 

FNO] 


relational-operator ^ 

character-expression — 


- stack-character-expression-field 
[stack-arithmetic-expression-value 
stack-character-expression-value 
function-call-no-argument] 

* compare-stacked-values 


(see Figure 3-112) 

[STF 

STF 

FNO] 

CMC 


{goto} ,lne " number 


branch-on-condition 


BRC 



Figure 3-131.1. IF (Character, String) PMC Syntax 
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Input to BNIMAG 
(BASIC Statement Syntax) 


Output from BNIMAG 


Syntax of PMC Sequences 


PMC Mnemonics 




statement-header 
branch-next-statement 


IMH 
BRA 


[character-string 
or 

print-image] . . . 


set-print-image 
branch -stacked-address 


(see note) 
BRS 


Note: Set-print-image is either a set-null-image (PRU) or a sequence of the following form: 

stack-character-field (STC) 
set-initial-image (PRU) 
, [stack-character-field [STC 

set-image-field] . . , PRU] ... | 


Rgure 3-132. I MAGI-. (:) PMC Syntax 


Input to BXINPT 
(BASIC Statement Syntax) 


Output from BXINPT 


Syntax of PMC Sequences 


PMC Mnemonics 


INPUT variable-reference 


statement-header i 
stack-return-address ; 
branch-unconditionally ; 
stack-variable-address , 
input-data -element 


STH 
STA 
BRA 

(see Figure 3-116) 
GET 


[,variable-reference] , . . 


[stack-variable-address 
input-data-element] , . . 
branch -next-statement 
stack-execution-code 
[stack-execution-code] . , . 
initiate-data-input 
branch -stacked-address 


[(see Figure 3-116) 

GET] . . . 

BRA 

STX 

[STX] ... ' 

INI 

BRS 



Figure 3-133. INPUT PMC Syntax 



Input to BPMLET 
(BASIC Statement Syntax) 


Output from BPMLET 


Syntax of PMC Sequences 


PMC Mnemonics 


[LET] arithmetic-reference 


statement-header 
branch -unconditionally 
stack-arithmetic-address 
stack-scalar-value 
unstack-scalar-value 


STH 
BRA 

(see Figure 3-1 1 6) 

STF 

USF 


[,arithmetic-reference] , . . 


[stack-arithmetic-address 
stack-scalar-value 
unstack-scalar-value] . . . 


[(see Figure 3-116) 
STF 

USF]... 


= arithmetic-expression 


branch -to-next-statement 

stack-scalar-address 

stack-expression-value 

unstack-expression-value 

branch-unconditionally 


BRA 
STA 

(see Figure 3-113) 

USF 

BRA 



Figure 3-134. LET (Arithmetic, Multiple) PMC Syntax 
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Input to BPALET 
(BASIC Statement Syntax) 


Output from BPALET 


Syntax of PMC Sequences 


PMC Mnemonics 


[LET] arithmetic-reference 


statement-header 
stack-arithmetic-address 


STH 

(see Figure 3-116) 


= arithmetic-expression 


stack-arithmetic-expression-value 
unstack-arithmetic-expression-value 


(see Figure 3-113) 
USF 



Figure 3-135. LET ( Arithmetic, Simple) PMC Syntax 



Input to BPCLET 
(BASIC Statement Syntax) 


Output from BPCLET 


Syntax of PMC Sequences 


PMC Mnemonics 


[LET] character-reference 


statement-header 
stack-character-address 


STH 

(see Figure 3-1 1 6) 


[.character-reference] . . . 


[stack-character-address] , . . 


[(see Figure 3-116)]... 


= character-expression 


stack-character-expression-field 
unstack-character-expression-field 


(see Figure 3-112) 

use 



Figure 3436. LET (Character) PMC Syntax 



Input to BSTRLT 
(BASIC Statement Syntax) 



, character-reference 



[letK 



string-function 



. character-reference 
string-function ' 



: character-expression 



Output from BSMLET 



Syntax of PMC Sequences 



statement-header 

branch-unconditionally 

stack-character-address 

[stack-character-expression-field 

stack-arithmetic-expression-value 

stack-arithmetic-expression-value] 

stack-character-field 

[function-call-no-argument] 

unstack-character-elements 



stack-character-address 

[stack-character-expression-field 

stack-arithmetic-expression-value 

stack-arithmetic-expression-value] 

stack-character-field 

[function-call-no-argument] 

unstack-character-elements 



branch-to-next-statement 

stack-character-address 

stack-character-expression-field 

[stack-arithmetic-expression-value 

stack-arithmetic-expression-value 

function-call-no-argument] 

unstack-character-elements 

branch-unconditionally 



Figure 3-136.1. LET (Character, Multiple, String) PMC Syntax 



PMC Mnemonics 



STH 
BRA 

(see Figure 3-116) 

[(see Figure 3-112) 

STF 

STF] 

STC 

[FNO] 

use 



(see Figure 3-116) 

[(see Figure 3-112) 

STF 

STF] 

STC 

[FNO] 

use 



BRA 
STA 

(see Figure 3-112) 

[STF 

STF 

FNO] 

use 

BRA 
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Input to BMMATA 


Output from BMMATA 


. . A _ matrix-name 
MAT matrix-name = 

matrix-expression 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT Statement Example 


statement-header 
stack-matrix-descriptor 
stack-matrix-descriptor 
stack-matrix-descriptor 
perform-3-matrix-f unction 


STH 
SDO 
SDO 
SDO 
MF3 


MAT C = A + B 


MATC=INV(M) 


statement-header 
stack-matrix-descriptor 
stack-matrix-descriptor 
perform-2-matrix-f unction 


STH 
SDO 
SDO 
MF2 


MAT C = CON{10) 


statement-header 
stack-arithmetic-expression-value 
stack-update-1 -matrix-descriptor 
perform-1 -matrix-function 


STH 

(see Figure 3-113) 
(see Figure 3-1 1 7) 
MF1 


MAT C = (E1)*M 


statement-header 
stack-matrix-descriptor 
stack-arithmetic-expression-value 
stack-matrix-descriptor 1 
perform-scalar-matrix-multiply 


STH 
SDO 

(see Figure 3-113) 

SDO 

MSM 



Figure 3-137. MAT PMC Syntax 
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Innut tn RMfiFTY 

MIJJUL LU DlVIOIZ 1 s\ 

(BASIC Statement Syntax) 


Output from BMGETX 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT GET i'*"™™' I 
Icharacter-variablel 


statement-header 

stack-character-field 

perform-file-activation 


STH 
STC 
ADF 


,array-reference 


stack-update-matrix-descriptor 
perform-get-matrix-f unction 


(see Figure 3-117) 
MF1 


[,array reference] ... 


[stack-update-matrix-descriptor 
perform-get-matrix-function] . . . 


[(see Figure 3-117) 
MF1] . . . 



rigure 3-138. MAT GET PMC Syntax 



Input to BMINPT 
(BASIC Statement Syntax) 


Output. from BMINPT 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT INPUT array-reference 


statement-header 
stack-update-matrix-descriptor 
perform-input-matrix-f unction 


STH 

(see Figure 3-1 1 7) 
MF1 


[, array reference} , . . 


[stack-update-matrix-descriptor 
perforrn-input-matrix-function] , . , 


[(see Figure 3-117) 
MF1] . . . 



Figure 3-139. MAT INPUT PMC Syntax 
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Input to BMDPRT 
(BASIC Statement Syntax) 


Output from BMDPRT 


fiv/nta* of PMn Rpni iPnnP<; 
uy iiiqa ui nviu oc^uci ii/Co 


Pft/lf^ ft/1 n o m An ioc 
rlVIV^ IVII 1 ci M Ul 1 IOa 


MAT PRINT matrix-name 


statement-header 

stack-matrix-descriptor 

perform^rint-matrix-unformatted 


STH 
SDO 
MF1 


| j J matrix-name 


ii 


01 


[stack-matrix-descriptor 
perform-print-matrix-unformatted] . . . 


[SDO 
MF1 ] . . . 



Figure 3-140. MAT PRINT PMC Syntax 



Input to BMUPRT 
(BASIC Statement Syntax) 


Output from BMUPRT 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT PRINT USING line-number 


statement-header 
stack-retu rn -address 
branch-set-image 


STH 
STA 
BNX 


,matrix-name 


stack-matrix-descriptor 

perf orm-pri nt-matrix-f ormatted 


SDO 
MF1 


[ # matrix-name] ... 


[stack-matrix-descriptor 
perform-print-matrix-formatted] . . . 


[SDO 
MF1] . . . 




release-image 


PRU 



Figure 3-141, MAT PRINT USING PMC Syntax 
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Input to BMPUTX 
(BASIC Statement Syntax) 


Output from BMPUTX 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT PUT I 
^character-vanablej 


statement-header 

stack-character-field 

perform-file-activation 


STH 
STC 
ADF 


,array reference 


stack-matrix-descriptor 
perform-put-matrix-f unction 


SDO 
MF1 


[,array reference] . . , 


[stack-matrix-descriptor 
perform-put-matrix-function] . . . 


[SDO 
MF1 ] . . . 



Figure 3-142. MAT PUT PMC Syntax 



Input to BMREAD 
(BASIC Statement Syntax) 


Output from BMREAD 


Syntax of PMC Sequences 


PMC Mnemonics 


MAT READ array -reference 


statement-header 
stack-update-matrix-descriptor 
perform-read-matrix-f unction 


STH 

(see Figure 3-117) 
MF1 


[,array-reference] . . . 


[stac k-update-matrix-descriptor 
perform-read-matrix-function] . . . 


[(see Figure 3-117) 
MF1 ] . . . 



Figure 3-143. MAT READ PMC Syntax 



Input to BKNEXT 
(BASIC Statement Syntax) 


Output from BKNEXT 


Syntax of PMC Sequence 


PMC Mnemonics 


NEXT arithmetic-variable 


statement-header 
branch -unconditionally 


STH 
BRA 



Figure 3-144. NEXT PMC Syntax 



Input to BTPAUS 
(BASIC Statement Syntax) 


Output from BTPAUS 


Syntax of PMC Sequence 


PMC Mnemonics 


PAUSE [comment] 


statement-header 
halt-execution 


STH 
HLT 



Figure 3-145. PAUSE PMC Syntax 
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Input to BXDPRT 
(BASIC Statement Syntax) 


Output from BXDPRT 


Syntax of PMC Sequences 


PMC Mnemonics 


PRINT [print-references] . . . 


statement-header 
print-unformatted. . . 


STH 

(see note) 


Note: Print-unformatted is either a position-carrier (PRS) or a print-position-carrier (PRS) preceded by a stack- 
basic-element (Figure 3-118). 



BR1208 

Figure 3-146. PRINT PMC Syntax 



Input to BXUPRT 
(BASIC Statement Syntax) 


Output from BXUPRT 


Syntax of PMC Sequences 


PMC Mnemonics 


PRINT USING line-number 


statement-header 

stack-return-address 

branch-set-image 


STH 
STA 
BNX 




print-image-only 


PRU (see Note 1) 


,scalar-reference 
[,scalar-reference] . . . 


print-formatted 
[print-formatted] . . . 


STC 

PRU (see Note 2) 

[STC 

PRU]. . . 


Notes: 

1 . This instruction is not generated when at least one scalar-reference is specified. 

2. These instructions are generated only when at least one scalar-reference is specified. 



BR1209 

Figure 3-147. PRINT USING PMC Syntax 



Input to BXPUTX 
(BASIC Statement Syntax) 


Output from BXPUTX 


Syntax of PMC Sequences 


PMC Mnemonics 


PUT i' filename ' 1 
icharacter-variablej 


statement-header 

stack-character-field 

perform-file-activation 


STH 
STC 
ADF 


,scalar-reference 


stack-basic-element 
put-file-element 


(see Figure 3-118) 
PUT 


[,scalar-reference] . . . 


[stack-basic-element 
put-file-element] . . . 


[(see Figure 3-118) 
PUT]. . . 



BR1210A 

Figure 3-148. PUT PMC Syntax 
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Input to BPREAD 
{BASIC Statement Syntax) 


Output from BPREAD 


Syntax of PMC Sequences 


PMC Mnemonics 


READ 


statement-header 


STH 


variable-reference 


stack-variable-address 
read-data-element 


(see Figure 3-116) 
GET 


[ variable-reference] , . . 


[stack-variable-address 
read-data-element] . . . 


[(see Figure 3-116) 
GET] ... 



BR1211 



Figure 3-149. READ PMC Syntax 



Input to BNRMRK 
(BASIC Statement Syntax) 


Output from BNRMRK 


Syntax of PMC Sequence 


PMC Mnemonics 


REM [comment] 


statement-header 


STH 



BR1212 



Figure 3-150. REM PMC Syntax 



Input to BXRSET 
(BASIC Statement Syntax) 


Output from BXRSET 


Syntax of PMC Sequences 


PMC Mnemonics 




statement-header 


STH 


RESET f« le " a ™' \ 
Icharacter-variablej 


stack-character-field 


STC 


perform-file-activation 


ADF 




reset-file-pointer 


RST 


f ('filename' )1 
1 (character-variablej J 


[stack-character-field 
perform-file-activation 
reset-file-pointer] . . . 


[STC 
ADF 
RST] . . . 



Note: When 'filename' has not been defined (cannot be located in compile filename table), no ADF-RST 
sequence is generated for that file reference. 
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Figure 3-151. RESET PMC Syntax 



Input to BPXRSR 
(BASIC Statement Syntax) 


Output from BPXRSR 


Syntax of PMC Sequence 


PMC Mnemonics 


RESTORE [comment] 


statement-header 
restore-data-pointer 


STH 
RSR 
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Figure 3-152. RESTORE PMC Syntax 
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Input to BKRTRN 
(BASIC Statement Syntax) 


Output from BKRTRN 


Syntax of PMC Sequence 


PMC Mnemonics 


RETURN [comment] 


statement-header 
branch -stacked-address 


STH 
BRS 


Note: The last executed GOSUB stacked the address operated on by BRS. 
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Figure 3-153. RETURN PMC Syntax 



Input to BTSTOP 
1 (BASIC Statement Syntax) 


Output from BTSTOP 


Syntax of PMC Sequence 


PMC Mnemonics 


STOP [comment] 


statement-header 
call-supervisor 


STH 

SVC 
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Figure 3-154. STOP PMC Syntax 
Compiler Termination 

Compiler Terminator-BTRMNT: The compiler overlay is called by the compiler dis- 
tributor (BHDIST) when an END statement or a work file end-of-file record is processed. 
Functions performed by the compiler terminator are: 

1. Generate the PMC sequence for the END statement (Figure 3-124). 

2. Write the last page of pseudo instructions to virtual memory by calling BBPUTC 
(CLOSE function). 

3. Write the last page of constants to virtual memory by calling BBPUTC (WRITE 
PAGE function). 

4. Write the last statement address table and branch address table buffers to disk. 

5. Build the common parameter area (Figure 3-155) in high-core. 

6. Load and exit to the loader (#LOADR) if nothing occurred to abort execution 
of the BASIC program. 

The following error conditions abort execution of the BASIC program and call the 
error program (#ERRPG) via SCAERK in the system nucleus: 

1 . BASIC program errors have been detected by the compiler. Switch B$ERSW is on, 
and the errors are recorded beginning in the first pseudo instruction page of virtual 
memory. This page and the two pages following are read into core at X'lCOO', the 
location of the error stack for the error program (#ERRPG). These pages contain 
up to 255 stacked error records. 

2. The capacity of the branch address table file on disk is exceeded. 

3. The FOR loop table contains an unresolved entry (a FOR statement was not 
paired with a matching NEXT statement). 



Licensed Material-Property of IBM 



Program Organization 3-191 



Core Address 
of Leftmost 
Parameter Byte 


Decimal 
Length 


Loader Input Parameters 


1A00 


2 


Starting virtual address for the allocation of arrays 
(equal to the last pseudo instruction page + 1 ). 


1A02 


2 


Last virtual address available in the first area for the 
allocation of arrays (equal to the last, or lowest, page 
constants). 


1 A04 


2 


First virtual address available in the second area for the 
allocation of arrays (equal to the last page of variables +1 ). 


1 A06 


2 


Ending virtual address for the allocation of arrays (equal 
to the last, or lowest, page containing array dope vectors). 


1A08 


2 


Starting virtual address of the internal constants. 


I 1 AOA 


2 


Starting virtual address of the internal variables. 


1 AOC 


58 


Arithmetic (letter) variable symbol table (from label 
B$SLVT). 


1A46 


580 


Arithmetic (letter-digit) variable symbol table (from 
label B$SLDT). 


1C8A ' 


58 


Character variable symbol table (from label B$SCVT). 


1CC4 


58 


Arithmetic array symbol table (from label B$SNAT). 


1CFE 


58 


Character array symbol table (from label B$SCAT). 


1D38 


58 


User function symbol table (from label B$SFNT). 


1D72 


406 


Array dope vector images and user function entry 
addresses. This area contains all array descriptors 
defined in the program, including dimensions specified 
in DIM statements and tags to define the arithmetic 
arrays as vector or matrix arrays. This area also includes 
virtual address entry points for all functions defined 
with a DEF statement. 


1F07 




Last address occupied by the loader parameters. 


Notes: 






1 . For clarification of the areas for the allocation of arrays, refer to the 
virtual memory map (Figure 7-2). 

2. Symbol tables and array dope vectors are generated in the symbol translation 
subroutine (BDSYMB). Refer to symbol processing in BDSYMB (Figure 3-1 1 1 ). 
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Figure 3455. Compiler/Loader Common Parameter Area 
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LOADER-SECOND PHASE OF COMPILATIOI\l-#LOADR (Figure 3-161) 

#LOADR is called by the compiler terminator (BTRMNT), via SRLOAD in the system 
nucleus, upon completion of the first phase of the compilation. The loader performs the 
following functions in preparation for execution of the BASIC program: 

1 . Allocation of arrays in virtual memory 

2. Allocation of data file buffers in virtual memory 

3. Initialization of elements in virtual memory 

4. Resolution of all entries in the branch address table 

5. Loading of VM-resident execution subroutines of the specified precision 

6. Loading the interpreter to begin execution of the BASIC program 

The assembly of #LOADR contains these major source modules: 

LALLOC— Allocate arrays 
LDFILE- Allocate data file buffers 
LVINIT— Initialize elements 
LRADDR— Resolve branch address table 
LSORTA— Sort branch address table subroutine 
DL2ICS-Disk logical IOCS, Figure 3-70 
DL4ICS-System work area IOCS, Figure 3-70 

The loader references parameters and tables accumulated by the compiler to perform 
the functions described in the following paragraphs. The loader does not access any of 
the source information in the work file (BASIC statements). The following list of figure 
references will aid in determining the input to, and output from, this phase of the compile 

1 . Compiler/loader common parameter area, Figure 3-155 

2. Virtual memory map, Figure 7-2 

3. RUN program name core map, Figure 3-102 

4. Arithmetic array dope vector, Figure 3-156 

5. Character array dope vector, Figure 3-157 

6. Symbol tables in BDSYMB, Figure 3-1 1 1 

7. Directory- 1 (work file I/O record), Figure 5-17 

8. Directory-2, Figure 5-20 

Allocation of Arrays in Virtual Memory— L ALLOC 

LALLOC allocates all arithmetic and character arrays, specified by entries in the respec- 
tive array symbol tables, into the remaining available pages of virtual memory. Reference 
is made to the following parameters in the common parameter area (Figure 3-155): 

1 . The first four parameters define the two areas available for the allocation of 
arrays. These parameters are updated, as arrays are allocated, so that they 
always reflect the limits of the remaining available area. 

2. The arithmetic array symbol table contains a pointer to an array dope vector 
image, also in the common area, for each arithmetic matrix or vector array to 
be allocated. The array dope vector defines the type and size of the array. 

3. The character array symbol table contains a pointer to an array dope vector 
image, also in common area, for each character array to be allocated. The 
character array dope vector defines the size of the array. 

Default values are used if the array dope vector is flagged as undefined. All fields of the 
array dope vectors are completed in the common parameter area and that portion of the 
area is written to virtual memory after all arrays are allocated. 

The length of each element in the array is: 

1 . 5 bytes for arithmetic arrays for standard precision 

2. 9 bytes for arithmetic arrays for long precision 

3. 19 bytes for character arrays 
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B$SNAT 



] 



One Table Entry 




1 I 2 


3 4 


5 6 


VADR 


F j D1 


D2 






Arithmetic Array Dope Vector Image in Common Parameter Area 


■ 1 I 2 


3 | 4 


5 6 


7 | 8 


f| di 


D2 


X'0000' 


X'0000' 




/ 






Arithmetic Array Dope Vector as Written in Virtual Memory at VADR 


1 2 


3 | 4 


5 6 


7 8 j 


D1 


! D2 


Size 


Base 



The virtual address of the space allocated by virtual memory for the array dope vector assigned to this 
symbol. Until the symbol is referenced at compile-time (arithmetic array reference of DIM statement), 
this field contains binary O's. 
Array usage flags (bits 0 and 1 ) . 
00— Array undefined. 

10— Vector usage; one dimension; field D1 contains binary O's. 

Field D2 contains either a specified or a default single dimension. 
1 1 —Matrix usage; two dimensions; both fields D1 and D2 contain a specified or a default dimension. 
First Dimension. This field defaults to a value of 10 when dimensions of a matrix array are not defined. 
Second Dimension. This field defaults to a value of 10 when dimension(s) of a matrix array are not defined. 
Total number of elements in this array. This field defaults, to a value of 10 for vector usage or 100 for 
matrix usage, when the dimension(s) of the array are not defined. 

Base virtual address for this array. This address is assigned by the loader (#LOADR). The first element in 

the array is located at base plus 5 bytes (9 bytes for long precision). \ 

BR1218 

Figure 3-156. Arithmetic Array Dope Vector 

Allocation of Data File Buffers in Virtual Memory-LDFI LE 

LDFILE reads the first sector of file directory 1 into storage and determines if there is 
a second sector. If file directory 1 is two sectors long, virtual memory space is allocated 
for the second sector. The first four parameters of the common parameter area define 
the available pages in virtual memory. 

LDFILE must be able to allocate at least one page for each card and disk file refer- 
enced in the BASIC program or execution of the program is aborted. The buffers are 
allocated from the remaining available pages defined by the first four parameters of the 
common parameter area. One page is allocated for each card file and the remaining 
pages are divided equally among the disk files, if specified, to a maximum of eight pages 
for each disk file. 

The files are defined in file directory 1 (work file I/O record). The device type code in 
each entry in file directory 1 is checked and file directory 2 is created as the buffers are 
allocated. File directory 1 and file directory 2 are stored in virtual memory. 

Initialization of Elements in Virtual Memory-LVINIT 

LVINIT scans the following tables in the common parameter area and initializes each item 
that is referenced: 

1. Arithmetic array symbol table 

2. Character array symbol table 

) 



Notes: 
VADR- 

F- 



D1- 

D2- 
Size- 

Base- 
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3. Character variable symbol table 

4. Arithmetic (letter) variable symbol table 

5. Arithmetic (letter-digit) variable symbol table 

B$SCAT 

Character Array Symbol Table (29 four-byte entries, 
one assigned to each symbol) 



One Table Entry 




1 2 


3 


4 


VADR 




0, 






Character Array Dope Vector Image 
in the Common Parameter Area 


< 


» 


3 4 




D1 


X'OOOO' 




/ 








Character Array Dope Vector as 
Written in Virtual Memory at VADR 






3 4 


D1 


Base 



Notes: 

VADR- The virtual address of the space allocated in virtual memory for the 
array dope vector assigned to this symbol . Until the symbol is 
referenced (character array reference or DIM statement), this field 
contains binary O's. 

F- Array usage flag {bit 0). 

D1— Dimension; number of character elements in the array. Only single 
dimension references (vector) are valid. This field defaults to a value 
of 10 when the dimension of a character array is not defined. 

Base- Base virtual address of the array. This address is assigned by the loader 
(#LOADR). The first character element in this array is located at base 
plus 19 bytes. 
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Figure 3-157. Character Array Dope Vector 

Trace Mode: A trace reference list (256 bytes) contains an image of the input parameters 
from the TRACE keyword statement. This list is passed against each symbol table listed 
above. Bits are set in an internal trace table (Figure 3-158) for symbols to be traced, if the 
symbol is referenced in its corresponding symbol table. The internal trace table is used to 
set trace bits (X'80' in the first byte) as the elements to be traced are initialized. 

Initializing Elements: All arithmetic elements (including each array element) are initial- 
ized to a value of 0~ 98 (X'00 00 00 00 IE' in short precision). (Refer to "Floating-Point 
Arithmetic" for the format of an arithmetic element in virtual memory.) All character 
elements are initialized to blanks (X'40'). (Refer to Figure 3-1 10 for the format of a 
character field in virtual memory.) 
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Trace Table (29 two-byte entries assigned to symbols 
$ t #, @ t A-Z in that order) 



One Two-Byte Entry 


Mask 


Svmhol Tvnp 


X'8000' 
X'4000' 
X'2000' 
X'1000' 


Arithmetic (letter-digit) variable (digit = 0) 
Arithmetic (letter-digit) variable (digit = 1) 
Arithmetic (letter-digit) variable (digit = 2) 
Arithmetic (letter-digit) variable (digit => 3) 


X'0800' 
X'0400' 
X'0200' 
X'0100' 


Arithmetic (letter-digit) variable (digit = 4) 
Arithmetic (letter-digit) variable (digit = 5) 
Arithmetic (letter-digit) variable (digit = 6) 
Arithmetic (letter-digit) variable (digit = 7) 


X'0080' 
X'0040' 
X'0020' 
X'0010' 


Arithmetic (letter-digit) variable (digit = 8) 
Arithmetic (letter-digit) variable (digit = 9) 
Arithmetic (letter) variable 
Character variable 


X'0008' 
X'0004' 
X'0002' 

x'ooor 


Arithmetic array 
Arithmetic array element* 
Character array 
Character array element* 


*Trace reference list is rescanned to determine 
individual elements to be traced. 
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Figure 3-158. Trace Table 



Resolution of the Branch Address Table— LRADDR 

LRADDR resolves all entries in the branch address table (Figure 3-159). (Refer to 
"Resolving Virtual Memory Addresses.") Resolution involves passing the branch address 
table against the statement address table (Figure 3-159), replacing line numbers in the 
branch address table with virtual addresses from the statement address table, and then 
updating the unresolved operands in virtual memory as specified in the branch address 
table. Both of these tables were written in the system work area on disk by the compiler. 

To efficiently replace the line numbers, the branch address table is sorted into ascend- 
ing line number order (last two bytes of entry) by the sort subroutine (LSORTA). One 
sector is processed at a time. The statement address table is created in ascending line 
number order; therefore, it need not be sorted. Each line number in the branch address 
table is located in the statement address table, and the line number in the branch address 
table is replaced with its associated virtual address from the statement address table. 

It may be necessary to scan more than one sector of the statement address table to 
locate a line number. If the range of line numbers in the statement address table buffer 
is higher than the unresolved line number, the scan starts with the first sector of the 
statement address table. If the range of line numbers in the buffer is lower, the next 
sequential sector is read from disk. 
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After all line numbers in one sector of the branch address table have been replaced, the 
updated sector is again sorted (LSORTA), this time to arrange the entries in ascending 
virtual-memory-location order (first two bytes of entry). After the sort, the virtual- 
memory page required by the first entry in the branch address table is read from disk. 
This page is updated at the displacements indicated by all entries in that range of virtual 
addresses and then written back to virtual memory. 



Branch Address Table Entry 


VADR 


Line Number 


T 








Updated Branch Address Table Entry 


VADR 
i 


VADR 



Statement Address Table Entry 


VADR 


Line Number 
i_ 
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Figure 3-159. Branch and Statement Address Tables 



When all entries on one sector of the branch address table have been processed, the 
next sequential sector is read from disk, sorted by line number, updated from the state- 
ment address table, sorted by virtual-memory location, virtual-memory updated, etc. 
This process continues until all entries in the branch address table (16 sectors maximum) 
have been resolved. 

When the last entry in the table is resolved, the interpreter (#INSTD or #INLNG) is 
loaded via SRLOAD in the system nucleus. #INSTD is loaded if execution is to be in 
standard precision; #INLNG is loaded to execute the BASIC program in long precision. 

Sorting the Branch Address Table-LSORTA 

One 256-byte buffer containing four-byte entries is sorted on each call to LSORTA. The 
entries are sorted in place, and in ascending order by either the first two or last two bytes 
of the entries. 
Input parameters to LSORTA are: 

1 . The core address of the two-byte sort field (register @XR). 

2. The core address of the buffer to be sorted (register @BR). 

3. The core address of the next to the last two-byte sort field in the buffer (LSBOTM). 
The number of entries in a buffer is variable. 

The method used by LSORTA is called sifting down and bubbling up (Figure 3-160). 
The entries are scanned, from the top, until two sort fields are found that are not in 
ascending order. This is called sifting down. When out-of-sequence entries occur, they 
are reversed. The scan of the entries reverses, and entries are swapped until the out-of- 
sequence entries are in the correct sequence. This is called bubbling up. Sifting down 
continues from the point where the out of sequence was detected. Only one full for- 
ward pass is made over the entries in the buffer. When all entries are in ascending order, 
this subroutine returns to LRADDR. 
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Sift Down 




Sift Down 




Bubble Up 



6. Continue sifting and bubbling until all entries are in sequence. 
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Figure 3-160. Sift and Bubble Sort (Worst Case) 
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#LOADR 



LALLOC 



VIRTUAL MEMORY ARRAY ALLOCATION 



1 . Determine virtual memory space available. 

2. Allocate arithmetic arrays. 

3. Allocate character arrays. 

4. Exit to $CAERK on errors to load #ERRPG. 

5. Place dope vectors in virtual memory. 



LDFILE 



FILE BUFFER ALLOCATION 



1. Get file directory 1. 

2. If file directory 1 has 2 sectors, allocate 
one page for the second sector. 

3. Initialize file directory 2 to zeros. 

4. Calculate remaining virtual memory pages available. 

5. Count device types. 

6. Allocate one page to each card file. 

7. Allocate evenly up to 8 pages for each disk file. 

8. Exit to $CAERK on errors to load #ERRPG. 

9. Save both file directories in virtual memory. 
10. Read trace reference list if in trace mode. 



LVINIT 




LVI015 





No 


LVI045 




INITIALIZE LVINIT 


1 . Set trace list bits off if not in trace mode. 

2. Set routine for long precision if required. 


LVI320 




INITIALIZE ARRAYS (ENTIRE) 


1 . Initialize arithmetic arrays in region 1 . 

2. Initialize character arrays in region 1 . 

3. Initialize arithmetic arrays in region 2. 

4. Initialize character arrays in region 2. 



SCAN TRACE REFEREN 


CE LIST 


1 . Scan trace reference list 
the internally generated 
encountered, 

2. Exit to $CAERK on err 


and set trace bits on in 
trace list for each variable 

ors to load #ERRPG. 



Figure 3-161. Loader (#LOADR) Flowchart (Part 1 of 2) 
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LVI060 




INITIALIZE INTERNAL CONSTANTS 
AND VARIABLES 



1. Initialize internal constants. 

2. Initialize internal variables if any. 



LVI200 



INITIALIZE PROGRAM VARIABLES 



1. Initialize character variables. 

2. Initialize letter variables. 

3. Initialize letter-digit variables. 

4. Exit to $CAERK on errors to load #ERRPG. 



LVI670 

REINITIALIZE ARRAY ELEMENTSTO BE TRACED 



1 . Initialize arithmetic array elements. 

2. Initialize character array elements. 

3. Exit to $CAERK on errors to load #ERRPG. 

4. Write initialized buffers to virtual memory. 



LRADDR 




BRANCH ADDRESS RESOLUTION 



1 . Get branch table sector. 

2. Get statement table sector. 

3. Enter LSORTA to sort branch table sector by line 
number. 

4. Replace line number in branch table with virtual 
address from matching line number entry in 
statement table. 



LRA200 



VIRTUAL MEMORY MODIFICATION 



1 . Enter LSORTA to sort branch table by the virtual 
address. 

2. Get desired sector of virtual memory. 

3. Move the saved virtual address to the virtual 
memory instruction. 

4. If all branch table entries processed save symbol 
tables on disk. 




LALOOO 




VIRTUAL MEMORY FUNCTION LOAD 


1 . Set routine for long precision if required. 

2. Get virtual memory functions from disk. 

3. Initialize virtual memory with the virtual 
memory resident functions if required. 

4. Exit to $R LOAD to load interpreter. 








#INSTD 
Figure 3-164 
Via $R LOAD 



Figure 3-161. Loader (#LOADR) Flowchart (Part 2 of 2) 



#INLNG. 
Figure 3-164 
Via $RLOAD 



BR 1223.2 
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Input to the interpreter is an object program composed of pseudo machine instructions. 
The interpreter executes these instructions, one at a time, to produce output for the 
user. 

Interpreter Cycle 

1. The pseudo instruction address register (PIAR) points to the op code of the next 
pseudo instruction to be executed. If the virtual-memory page that contains that 
pseudo instruction is not in core, it is read from virtual memory into the paging 
area. 

2. The op code is used as a displacement into the PMC execution branch table. The 
core address located in the table is used to branch to a core-resident execution 
subroutine. 

3. The core-resident subroutine may interface to an execution subroutine resident 
in virtual memory. The page containing the subroutine is read into the paging 
area if it is not already there. 

4. The pseudo instruction is executed. Pages containing required data elements are 
read into the paging area if they are not already there. 

5. The PIAR is incremented by the instruction length to point to the next sequential 
pseudo instruction; or, if branching, the branch virtual address is used to set the 
PIAR. 

6. Steps 1 through 5 are performed until a terminating pseudo instruction is encoun- 
tered and then a return is made to conversational mode. 

Organization of Assembly Listings 

All modules of the interpreter are contained in these four assemblies: 

1. Standard precision core resident routines-#INSTD 

2. Long precision core resident routines— #INLNG 

3. Standard precision virtual memory resident execution subroutines— #FMSTD 

4. Long precision virtual memory resident execution subroutines-#FMLNG 

Interpreter Core Resident Routines-#INSTD, #INLNG 

Two interpreter programs reside in the system program file. Either program is loaded 
into core for execution at X'0600', immediately following the system nucleus. These 
two programs are: 

#INSTD— Standard precision interpreter 
#INLNG-Long precision interpreter 

The assembly of either #INSTD or #INLNG contains the same modules except for 
different interpreter execution equates. Each module assembles to the same byte length 
regardless of the precision, the differences being reflected in the execution characteristics 
of the coding. Each assembly contains the following modules arranged in the order 
listed: 

@SYSEQ-General system equates 
@FXDEQ— Fixed address equates 
@CANEQ— Command analyzer equates 
@ERMEQ— Error message equates 
$V$EQU-Virtual address equates 
$B@EQU— Compiler system equates 
$I$EQU— Interpreter fixed equates 

$I@SEQ-Interpreter system equates (The long-precision interpreter contains $I@LEQ 
instead of $I@SEQ. This is the only difference in the assembly listings.) 
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IMINIT— Initiator (overlayed with the run-time stack and work areas) 
FDIADD/FDISUB-Floating-point add/subtract 
FZIMPY-Floating-point multiply 
FFIDVD-Floating-point divide 

CPUFLT— Convert floating-point element to unpacked-decimal 
CUPFLT— Convert floating-point element to packed-decimal 
CAFPBS-Convert floating-point element to binary subscript 
ISTACK-Element stacking subroutine 
IUSTAK— Element unstacking subroutine 
INTERP— Interpreter executive 
ICFLT A— Arithmetic pseudo instruction execution 
ICMATF— Matrix function pseudo instruction execution 
ICELST-Element stacking pseudo instruction execution 
ICARST— Array element stacking pseudo instruction execution 
ICTEST— Logical pseudo instruction execution 
ICBRAN-Branch pseudo instruction execution 
ICLOOP-FOR/NXT pseudo instruction execution 

ICVMEX— Interface to pseudo instruction execution subroutines in virtual memory 
IPGMDL-Virtual-memory paging subroutine 
IZCOMN— Interpreter common equates 

Interpreter Virtual-Memory-Resident Execution Subroutines- #FMSTD and #FMLNG 

Two interpreter components, containing virtual memory resident execution subroutines, 
reside in the system program file. Both components contain the same modules except for 
those marked with * on the symbolic label in Figure 3-162; coding varies in those 
modules due to precision differences. Each component assembles so that there is no 
difference between standard-precision and long-precision subroutine entry points. 



Virtual 
Address 


Disk 
Address 


Symbolic 
Label 


Pseudo 
Mnemonic 


Synopsis 


0200 


0708 


*FKSLGT 


FN1 


LGT intrinsic function (log base 1 0) 


020B 


0708 


*FKSLTW 


FN1 


LTW intrinsic function (log base 2) 


0219 


0708 


*FKSLOG 


FN1 


LOG intrinsic function (log base e) 


0470 


0710 


CENXZD 


* 


Convert exponent to zoned decimal 


04 AD 


0710 


CCZDFP 


* 


Convert zoned decimal to floating point 


0500 


0714 


*FGSEXP 


FN1 


EXP intrinsic function (exponential) 


0800 


0720 


FNBPWR 


PWR 


Floating-point exponentiate 


0900 


0724 


FRBSQR 


FN1 


SQR intrinsic function (square root) 


0A00 


0728 


*FSSCOS 


FN1 


COS intrinsic function (cosine) 


0A1A 


0728 


*FSSIN 


FN1 


SIN intrinsic function (sine) 


0C70 


0730 


CBFPZD 


* 


Convert floating point to zoned decimal 


0CB2 


0730 


CDBfMZD 




Convert binary number to zoned decimal 


0D00 


0734 


*FWSCOT 


FN1 


COT intrinsic function (cotangent) 


0D28 


0734 


*FWSTAN 


FN1 


TAN intrinsic function (tangent) 


1100 


0744 


*FBSATN 


FN1 


ATN intrinsic function (arctangent) 


1400 


0750 


*FCSACS 


FN1 


ACS intrinsic function (arcosine) 


1413 


0750 


*FCSASN 


FN1 


ASN intrinsic function (arcsine) 


1500 


0754 


*FHSHCS 


FN1 


HCS intrinsic function (hyperbolic cosine) 
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Figure 3-162. Contents of Virtual Memory (Interpreter) (Part 1 of 3) 
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Virtual 
Address 


Disk 
Address 


Symbolic 
Label 


Pseudo 
Mnemonic 


Synopsis 


1557 


0754 


*FHSHSN 


FN1 


HSN intrinsic function (hyperbolic sine) 


1593 


0754 


*FHSHTN . 


FN1 


HTN intrinsic function (hyperbolic tangent) 


1700 


075C 


*FTSSEC 


FN1 


SEC intrinsic function (secant) 


1725 


075C 


*FTSCSC 


FN1 


CSC intrinsic function (cosecant) 


1761 


075C 


FABABS 


FN1 


ABS intrinsic function (absolute value) 




07 5C 


FJBINT 


FN1 


ll\IT intrinsip funrtinn HntPnpr valnp) 

I IM 1 M I LI II OIU i ui iv^liuii \uii.oyci value; 


17A7 


075C 


FUBSGN 


FN1 


SGN intrinsic function (sign of value) 


17CB 


075C 


FPBRAD 


FN1 
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Figure 3-162. Contents of Virtual Memory (Interpreter) (Part 2 of 3) 
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Figure 3-162. Contents of Virtual Memory (Interpreter) (Part 3 of 3) 

Either component is copied to virtual memory by the loader (#LOADR) from the 
system program file. Individual pages are read into the paging area of core and executed 
under control of the virtual-memory paging subroutine (IPGMDL). Both components 
contain subroutines to perform the functions listed in Figure 3-162. 

The following list contains explanations of the column entries in Figure 3-162: 

1. "Virtual address" is the virtual entry point to perform the function. 

2. "Disk address" is the physical disk address of the virtual-memory page containing 
the entry point. 
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3. "Symbolic label" is the symbolic name of the entry point in the assembly listings 
of either #FMSTD or #FMLNG. An * indicates that coding in the subroutine 
varies due to precision differences. 

4. "Pseudo mnemonic" is the mnemonic of the pseudo instruction associated with 
the execution of that subroutine. An * indicates that multiple pseudo instructions 
are associated with the subroutine. 



Interpreter Labeling Conventions 

Because virtual-memory-resident routines must communicate with the core-resident 
interpreter, a fixed equate module ($I$EQU) is used to reference core-resident instruc- 
tions and areas. In addition, equate module IZCOMN is used to assist in defining the 
fixed addresses in $I$EQU. Essentially, IZCOMN references the same core addresses as 
$I$EQU, except IZCOMN addresses are derived from the assembled code while $I$EQU 
addresses are manually adjusted constants. 

Core-resident modules are coded to reference other core-resident modules using the 
following conventions: 

• Module entry points— Actual entry point label. 

• Module data/instruction fields— Equivalent IZCOMN label. 

Virtual-memory modules are coded to reference core-resident modules using the 
following conventions: 

• Module entry points— Equivalent $I$EQU label. 

• Module data/instruction fields— Equivalent $I$EQU label. 

Virtual-memory-resident module entry points are always referenced using the appropriate 
SVSEQU label. 

Program descriptions use the following conventions, with respect to both core-resident 
and VM-resident modules, for consistency : 

• Module entry points— Actual entry point label. 

• Module data/instruction fields— Equivalent $I$EQU label. 
For example: 

• Actual core-resident entry point label— INTERR 

Referenced from core as— INTERR 
Referenced from virtual memory as- I$XERR 

• Actual core-resident data field label— INTERC 

Referenced from core as— IZERRC 
Referenced from virtual memory as- I$ERRC 

• Actual VM-resident entry point label- FZREAD 

Referenced from core as- V$XSRD 
Referenced from virtual memory as- V$XSRD 



Interpreter Initiator-IMINIT 

IMINIT modifies the core-resident interpreter for an expanded core configuration, 
initializes the core virtual-memory page region, and sets run-time indicators prior to 
entering the interpreter executive (INTERP). 
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Expanded Core Utilization 



When the system core configuration exceeds 8k and core beyond 8k is available for 
increased operational efficiency, IMINIT performs appropriate adjustments to the paging 
subroutine (IPGMDL) such that all usable core space is dedicated to expanding the core 
page region. The 8k system (Figure 3-163) operates on 10 core pages. When extra core 
is available, one of these page areas is used to expand tables in IPGMDL. The remaining 
nine-page region, combined with the additional core, is used to contain virtual-memory 
pages. The size of the core paging area is: 

Core Size Pages 



After core allocation, the core page region is loaded from virtual memory with con- 
secutive pages beginning with page number 00. The page reference table in IPGMDL is 
initialized to define this condition. 

Interpreter Executive-INTERP 

The primary function of INTERP is to translate a pseudo instruction op code into the 
entry point of a core-resident PMC processing routine and then branch to that routine. 
INTERP also contains certain housekeeping routines and work areas that are central to 
interpreter operations and PMC routines to process the following pseudo machine 
instructions: 

STH-Statement header 
IMH— Image statement header 
HLT— Halt execution 
EOP-End of page 
SVC-Supervisor call 

Entry points to INTERP are: 

1 . INTERP -Begin execution. The first virtual-memory PMC page is locked into core. 
The first pseudo instruction in that page is accessed and control is passed to the 
appropriate PMC processing routine. 

2. INTP AG-Transfer control. The virtual-memory PMC page specified in I$VADR is 
locked into core. The pseudo instruction referenced by I$VADR is accessed and 
control is passed to the appropriate PMC processing routine. 

3. INTADl-The pseudo instruction address register (I$XIAR) is incremented by one 
byte. The next instruction is accessed. 

4. INTAD2— I$XIAR is incremented by two bytes and the next instruction is 
accessed. 

5. INTAD3-I$XIAR is incremented by three bytes and the next instruction is 
accessed. 

6. INTAD4-I$XIAR is incremented by four bytes and the next instruction is 
accessed. 

7. INTXEC-The pseudo instruction referenced by I$XIAR is accessed and control 
is passed to the appropriate PMC processing routine. 

8. INTADS— The run-time stack pointer (I$STAK) is incremented by the value in 
parameter I$STKI. An error condition occurs when I$STAK is incremented beyond 
the stack data limit. 

9. INTERR— The error code in I$ERRC is stored as a parameter to the error program 
(#ERRPG), all active external data files are closed, all modified pages in core are 
written back to virtual memory, and control is passed to the error program, via 
SCAERK in the system nucleus. 



'8k 



10 
18 
25 
34 
41 



12k (with CRT) 
12k (no CRT) 
16k (with CRT) 
16k (no CRT) 
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Figure 3-163. Interpreter Core Map (8k System) 

Input parameters to INTERP are: 

1 . I$XPAG (entry INTPAG)-One byte, for the execution page number. This con- 
tains the virtual page number of the PMC page to which control is to be 
transferred. 

2. I$VADR (entry INTPAG)— Two bytes, for the paging routine virtual address 
parameter. This contains the virtual address of the pseudo instruction to which 
control is to be transferred. 

3. I$XIAR (entries INTAD1, INTAD2, INTAD3, INTAD4)-Two bytes, for the 
pseudo instruction address register. This contains the core address of the op 
code byte of the pseudo instruction. 

4. I$XIAR (entry INTXEC) -Contains the core address of the op code byte in 
the pseudo instruction to be executed. 
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5. I$STKI (entry INTADS)-One byte, for the run-time stack pointer increment. 
This contains the value of the increment to be added to I$STAK. 

6. I$ERRC (entry INTERR)— One byte, for the interpreter error code. This contains 
the code associated with the error message to be displayed by the system error 
program on exit to $CAERK. 

Output parameters from INTERP are: 

1 . I$XIAR (entry INTPAG)-Contains the core address of the op code byte in the 
pseudo instruction to which control is transferred. 

2. I$XIAR (entries INT AD 1 , INTAD2, INTAD3 , INTAD4)-Contains the core 
address of the op code byte of the next pseudo instruction to be executed. 

3. I$STAK (entry INTADS)-Two bytes, for the run-time stack pointer. This has 
been incremented by the value in parameter ISSTKI. 

4. $CAERR (INTERR execution)-One byte, for the system error program param- 
eter. This is set equal to the value in I$ERRC. 

5. $INLNO (STH execution)— Two bytes, for the system execution line number. This 
is set to contain the binary line number operand in the STH instruction. 

6. I$STHA (STH execution)— Two bytes, for the statement header virtual address. 
This is set to contain the virtual address of the op code in the currently executed 
STH instruction. 

7. I$IRSW (IMH execution)-One byte, for the image reference switch. This switch 
is set off (code @NOP) during IMH instruction execution. 

8. I$IRSW (STH/IMH execution)-One byte, for the image reference switch. This 
switch, normally set to code @NOP, is set to code @UCB when the statement 
header to be executed must be an IMH rather than an STH. 

9. I$RESW (STH execution)— One byte, for the recursion error switch. This is set 
to code @NOP when line number recursion is permitted during STH execution; 
unless specifically set prior to each STH instruction execution, ISRESW contains 
code @UCB which causes an error condition when line number recursion occurs. 

1 0. I$TFSW (STH execution)-One byte, for the trace flow switch. This is set to code J 
@NOP when TRACE FLOW is specified, and causes line number display when 

STRACE in $XIND1 is also on. When TRACE mode processing has not been 
specified, ISTFSW is set to code @UCB. 

11. SINLNO (STH execution)— Two bytes, for the system execution line number. 
This contains the binary line number of the statement just executed, or the value 
X'FFFF' when the first STH instruction is to be executed. 

12. $XIND2 (INTERR, SVC execution)-One byte, for system execution indicator 2. 
Bit $EXCMD is set off, indicating termination of execution mode. 

INTERP contains the following interpreter common work areas. Where applicable, the 
external label is given along with the internal area name: 

1 . INTDT1 (ISDAT1)— Two bytes, for the internal data file base pointer. 

2. INTPAR (I$PARM)-Two bytes, for the interpreter common parameter field. 

3. INTWK1 (ISWRK1)— Two bytes, for interpreter common work area 1 . 

4. INTWK2 (I$WRK2)— Two bytes, for interpreter common work area 2. 

5. INTDAT (I$DATA)-Two bytes, for the internal data file pointer. 

6. INTPIN (PRINT USING communication area)— Twelve bytes, for interpage 
information transfer during PRINT USING operations. 

7. INTFAT (user function activity table)— Used as a push-down stack to control the 
execution of nested user functions. The first table entry is set equal to X'0000' to 
indicate the bottom of the stack. Each two-byte entry in the table contains the 
virtual address of an active user function. 
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8. INTBAT (PMC execution branch table)— Used to translate pseudo instruction op 
codes to PMC execution routine core address entry points. Each two-byte entry 
contains the core address entry point of a PMC execution routine defined by the 
relative position of the entry in the table. The op code value is used as an index to 
this table. This table contains entries for all pseudo instructions except DCA, DDL, 
DWA, and EOF. 

Paging Subroutine-IPGMDL 

The paging module interfaces between core routines (including virtual memory pages 
presently in core) and virtual memory. It provides the capability of addressing virtual 
memory directly and provides subroutine communication within VM. Several options 
give user control over the replacement process. 
The paging module has eight entry points which are described as follows: 

1. I$CVAD or IPGCVA-Convert address. Keeps all counters, usage value, and other 
page information up to date as well as reading and writing VM pages when neces- 
sary. The basic external function is to provide the caller with a core address (at 
label IPGCAD) when called with a virtual address (at label IPGVAD). When return 
is made, the page containing the byte referenced by IPGVAD is in core and the 
byte address is the value at location IPGCAD. 

2. ISMDFY or IPGMOD-Page modify. Performs all the functions of IPGCVA as well 
as setting the read-only bit for the referenced page. This bit indicates that the page 
must be written back to virtual memory when modifications have been made to it. 
If the read-only bit has not been set for a page at replacement time, the paging 
subroutine assumes that the core page is still an exact copy of the disk virtual- 
memory page and a write operation is not performed. 

3. I$LOCK or IPGLOK-Page lock. Performs all the functions of IPGCVA as well as 
setting the page locked bit for the referenced page. This function is used so that 
future references to the page can be made using core addresses. The page uncon- 
ditionally remains at the same core location until the lock bit is reset. 

4. I$UNLK or IPGULK-Page unlock. Performs all the functions of IPGCVA as well 
as resetting the page locked bit. This means that the page is subject to being 
replaced by future paging operations. 

5. I$LDBR or JPGLBR— Convert address and load @BR, Performs all the functions 
of IPGCVA as well as setting @BR to point to the first byte of the page in core. 
@BR may then be used as the referenced page base register as well as allowing 
the calling page to reference any byte of the page by using the proper page 
displacement. 

6. ISLDXR or IPGLXR-Convert address and load @XR. Performs all the functions 
of IPGCVA as well as setting @XR to the converted core address. @XR may then 
be used to directly reference the byte referred to by the virtual address. 

7. I$CALL or IPGCAL-Call pageable subroutines. Performs all the functions of 
IPGLBR as well as locking the referenced page in core and stacking the return 
address and base register of the calling page for future return. A branch is made 
to the specified address. 

8. I$RTRN or IPGRTN— Return from pageable subroutine. Unlocks the returning 
page, and then unstacks the next available return address and base register (pre- 
viously stacked by IPGCAL) and returns to the original calling program. 

, There are two major work areas in the paging subroutine. One area is centrally located 
so that location will be within the base register range. The other area consists of tables 
and follows the paging subroutine code. The core page area follows the tables beginning 
with the next even 256-byte core address. The paging module is arranged in core so that 
the 8k version tables end immediately before the first core page (X'ISFF'). 
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The central work area contains: 

1. IPGVAD— Virtual address storage location (three bytes). The first byte is always 
00 3 the second byte is the virtual page number, and the third byte is the page 
displacement. 

2. IPGCAD— Core address storage location (two bytes). The first byte equals the 
core page number (IPGCPG), and the second byte equals the page displacement. 

3. IPGUVL-Reference counter for setting page usage value (two bytes). 

The tables at the end of the paging subroutine code are: 

1. IPGUVT— Usage values table; two bytes per entry, indexed from the low end by 
(IPGCPG)*2. 

2. IPGLRT— Lock, read-only bit table; one byte per entry, indexed from the low 
end by PGNO. Only two bits of each entry are used. 

3. IPGTBL-Page table; one byte per entry, indexed from the low end by IPGVPG. 
If a page is in core, its entry is equal to IPGCPG. If a page is not in core, its entry 
equals 00. 

4. IPGSTK-Page call stack (four bytes per entry). This stack is used in IPGCAL/ 
IPGRTN functions to save @BR and return addresses. 

Element Stacking Subroutine-ISTACK 

ISTACK moves a variable-length data field from virtual memory to the core location 
(normally within the run-time stack) referenced by index register @XR. The field is 
referenced in virtual memory using paging parameter ISVADR, and may extend across 
a single virtual page boundary. Field length is specified in a one-byte parameter to the 
subroutine, and remains available after subroutine execution. Register @XR is not 
modified during execution, but the virtual address in ISVADR is subject to modification 
when a page boundary condition exists. 
Input parameters to ISTACK are: 

1 . Register @XR— For the destination core location pointer. This contains the core 
address of the leftmost byte of the core area into which the data element is to 
be moved. 

2. ISVADR— Two bytes, for the paging routine virtual address parameter. This con- 
tains the virtual address of the leftmost byte of the data element that is to be 
moved. 

3. I$SLNG— One byte, for the data element length code. This contains a value that 
is one less than the actual length of the data element. Unless specifically set prior 
to subroutine execution, ISSLNG automatically contains the length code required 
to move a packed floating-point decimal value (five bytes for standard precision, 
nine bytes for long precision). 

Element Unstacking Subroutine— IUSTAK 

IUSTAK moves a variable-length data field from the core location (normally within the 
run-time stack) referenced by index register @XR to virtual memory. The destination 
field is referenced in virtual memory using paging parameter ISVADR, and may extend 
across a single core page boundary. Field length is specified in a one-byte parameter to 
the subroutine. Register @XR is returned to the calling program intact, but the virtual 
address in ISVADR is subject to modification when a page boundary condition exists. 

Depending on a subroutine parameter setting, the source data type may be compared 
with the data type contained in the destination field (arithmetic or character); incon- 
sistent data types cause execution to be aborted on an error condition. 

Also, depending on the current execution mode of the system, the new value of an 
element whose destination field is tagged for tracing is displayed on the system output 
device. 

) 

3-210 



Licensed Material-Property of IBM 



Input parameters to IUSTAK are: 

1 . Register @XR— For the source core location pointer. This contains the core address 
of the leftmost byte of the core area from which the data element is to be moved. 

2. I$VADR— Two bytes, for the paging routine virtual address parameter. This con- 
tains the virtual address of the leftmost byte of the destination field in virtual 
memory. 

3. I$ULNG-One byte, for the data element length code. This contains a value that 
is one less than the actual length of the data element. Unless specifically set prior 
to subroutine execution, I$ULNG automatically contains the length code required 
to move a packed floating-point decimal value (five bytes for standard precision, 
nine bytes for long precision). 

4. I$DMSW— One byte, for the unstacking routine data matching switch. This con- 
tains code @NOP when matching is to be performed, or code @UCB when matching 
is not required. 

5. $XIND1 — One byte, for system execution indicator-1 . This indicator contains a bit 
(mask $TRACE) which is set on when TRACE mode execution has been specified. 

Output parameters from IUSTAK are: 

1. Unstacked data element-(I$ULNG+l) bytes, located with leftmost byte stored 
in virtual memory at the address originally specified in I$VADR. 

2. Traced variable— When TRACE mode has been specified and the destination field 
has been tagged for variable trace, the unstacked value is displayed, in association 
with the BASIC identifier corresponding to the destination field, on the system 
output device. 

3. I$ERRC-One byte, for the error condition code. This contains a null code 
(I@NERR) when no error condition exists, or an error code specifying the 
particular error condition discovered. 
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0INSTD 
#INLNG 



IMINIT 



3 



INITIALIZE BASIC INTERPRETER 



1. Read 10+ $EXFTR pages from disk VM to core 
page region starting with virtual page 0. 

2. Adjust IPGMDL program and tables for size and con- 
tents of core page region. 

3. Set data file pointers with value in $INLNO. 

4. Mask inquiry request. 

5. Set $VMDEF and $EXCMD indicators on. 

6. Set PMC IAR for 1st instruction in 1st PMC page. 




INT010 



ACCESS VIRTUAL MEMORY PMC EXECUTION 
PAGE 



1 . Read and lock PMC page using IPGMDL. 




INT040 




ADVANCE PMC ADDRESS POINTER 



1. Increment PMC IAR by current PMC length. 




INT080 



SET UP PSEUDO MACH 
EXECUTION 


INE INSTRUCTION 


1 . Select PMC processor using opcode at PMC IAR. 

2. Branch to execute selected PMC processor. 




STH 



HLT 



EOP 





Non-Branching PMC 



Branching PMC 




ICBRAN 




Branching PMC 



EXECUTE BRANCHING PSEUDO INSTRUCTION 



1 . Set PMC IAR using branch destination virtual 
address. 

2. Unlock current PMC page using IPGMDL when desti- 
nation address outside current page. 




EXECUTE NON-BRANCHING PMC 



Use IPGMDL to control, all VM paging operations. 
Use ISTACK to move VM elements to run-time 
stack. 

Use IUSTAK to move stacked elements toVM; 
display unstacked data if variable trace mode. 
Use CPUFLT to unpack arithmetic elements for 
functions. 

Use CUPFLT to pack arithmetic elements for stor- 
age. 

Use ICFLTA to perform arithmetic in stack. 
Use ICMATF to perform matrix operations. 
Use ICELST to store scalar items in stack. 
Use ICARST to store array items in stack. 
Use ICLOOP to execute for/next operations. 
Use ICVMEX to interface to VM resident PMC 
execution routines. 

Use IDIFNC to execute user-function (FCI) opera- 
tions. 

Use IDDVST to stack array dope vectors. 

Use IDFILE to interface to VM resident input/ 

output routines. 




1 . Close all active external data files. 

2. Write all core VM pages to disk VM. 

3. Set execution mode indicator $EXCMD off. 

4. Exit to $CAERK to load and execute #ERRPG. 



#ERRPG 

Figure 3-17 J 
Via $CAERK J 
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Figure 3-164. Interpreter (#INSTD, #INLNG) Flowchart (Part 1 of 2) 
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INTSTH 



PROCESS STATEMENT HEADER PSEUDO 
INSTRUCTION 



1. Execute INTERR if invalid statement line number 
recursion occurs. 

2. Call $UNMSK to honor pending inquiry request; 
remask inquiry request on return. 

3. Call $PAUSD to execute #EXMSG if step mode. 

4. Execute I NTSVC if GO ABORT specified. 

5. Store new statement line number in $INLNO. 

6. Display $l N LNO if trace flow mode. 





INTEOP 



PROCESS END-OF-PAGE P 


SEUDO INSTRUCTION 


1. Unlock current PMC page 

2. Set PMC IAR for 1st ins 


using IPGMDL. 
truction in next PMC page. 





INTHLT 



PROCESS HALT PSEUDO INSTRUCTION 



Call DLFPRT if there is something to print and the 
system is in line-printer mode. 
Call $PAUSD to execute #EXMSG for BASIC 
program PAUSE statement. 

Disable inquiry request/step mode processing during 
next STH execution only 





I NTSVC 




PROCESS SUPERVISOR CALL PSEUDO 
INSTRUCTION 


1 . Call DLFPRT if there is something to print and the 
system is in line-printer mode. 

2. Close all active external data files. 

3. Write all core VM pages to disk VM. 

4. Set execution mode indicator $EXCMD off. 

5. Exit to $CARPL to load and execute #GUFUD. 







#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-164. Interpreter (#INSTD, #INLNG) Flowchart (Part 2 of 2) 
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I/O Execution Subroutines 

Keyboard Physical IOCS-DFKEYN 

DFKEYN reads from the keyboard to an input buffer and displays the input on the 
system printer, via a call to DFPRNT, through the paging subroutine (IPGMDL). All 
actual I/O to the keyboard during user program execution is executed by this sub- 
routine. All function and command keys, except the enter-plus and program start keys, 
are processed. The call to this I/O subroutine includes the passing in @XR of the input 
buffer address. 

System Printer Physical IOCS-DFPRNT 

DFPRNT (Figure 3-165) prints on the matrix printer and performs carrier positioning 
operations. All actual I/O to the matrix printer during user program execution is 
executed by this subroutine. Waits for I/O to complete are executed by DFPRNT after 
the SIO, prior to returning to the calling routine (no I/O overlap is possible). The call to 
this I/O subroutine includes the address of the printer parameter list (Figure 5-23) in 
@XR. This subroutine assumes that the print parameter list is valid. 

Line Printer Physical IOCR—DLFPRT (Figure 3-1 65) 

DLFPRT prints bidirectionally on the line printer and performs carrier positioning 
operations. All actual I/O to the line printer during user program execution is executed 
by this subroutine together with DFPRNT. Waits for I/O to complete are executed after 
the SIO command and prior to printing another line or returning to the calling routine 
(no I/O overlap). The address of the printer parameter list (Figure 5-23) is passed to this 
I/O subroutine in @XR. This subroutine assumes that the print parameter list is valid. 
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Line 
Printer 
required 

Yes 



No 



Load DLFPRT 
page to core 



Load 
buffer 



Format 
line 




Update 
position of 
MP head , 



Yes 



SIO 

Start requested 
operation 



Wait 



J 



Process end 
of forms 







Set up 
error history 
log entry 







Set indicators 
for MP down 
and hard 
error 





Figure 3-165. System Printer Physical IOCS (DFPRNT) and Line Printer 
Physical IOCS (DLFPRT) Flowchart 
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Card Reader Physical IOCS-DFRDIN (Figure 3-166) 

DFRDIN fills the input buffer (located at the address in register @XR) with blanks, and 
then reads the card image (80 bytes for the 1 29 Card Data Recorder and 96 bytes for 
the 5496 Data Recorder) into the buffer with no I/O overlap and no truncation. All 
actual I/O for input from the data recorder, during user program execution, is executed 
by this subroutine. The call to this I/O subroutine includes the passing in @XR of the 
input data buffer address. Error procedures in DFRDIN are the same as those in #DREAD. 

Card Punch Physical IOCS-DFCOUT (Figure 3-166) 

DFCOUT punches 96 bytes of data from a buffer located at the address in C^XR, with no 
I/O overlap. All actual I/O for output to the data recorder, during user program execu- 
tion, is executed by this subroutine. The call to this I/O subroutine includes the passing 
in (&XR of the output data buffer address. 




DR2000 




Set hard 
error indicator. 



If error is pending, 
build error history 
log entry. 




$D|SKN 


3-7 j 


Wait call 


to log 


error and hard 


stop. 





Hard Halt 
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Figure 3-166. Card Reader Punch Physical IOCS (DFRDIN, DFCOUT) Flowchart (Part 1 of 2) 
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Figure 3-166. Card Reader Punch Physical IOCS (DFRDIN, DFCOUT) Flowchart (Part 2 of 2) 
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Activate External Data File—SFADFR 

SFADFR is an execution-time file checker. Prior to any logical or physical I/O operation 
on an allocated file, SFADFR is called to open the file or to verify that the file is already 
open. Depending upon the status of the referenced file, SFADFR performs one of two 
functions. If the file is already open, the displacement within directory 2 (page X'OT), 
to the referenced entry, is stored in the directory 2 header for later use by SFGETR, 
SFPUTR or SFRSET. If the file had not been previously accessed, it must now be 
opened. The directory 1 (page X'OO') record of allocated information is accessed and the 
file is found if it is a disk file. The directory 2 entry is initialized and the entry displace- 
ment is stored in the header. 

Output an Element to an External Data File— SFPUTR 

SFPUTR outputs a single arithmetic or character element to a sequential data file. This 
data file may be to disk, card, printer, or CRT. The specific action taken by this sub- 
routine depends upon the device type: 

1 . For a disk file, the data element is placed in a buffer that is allocated for the 
disk file. When the buffer is full, the overlay program #SFLOA transfers the 
full buffer to the external data file in the file library. Following each transfer, 
an end-of-file record is generated and written to the data file, following the 
data. This EOF record is written over by the next transfer of data. 

2. For a card output file, the data element is converted and placed in the buffer 
that is allocated for the card file. When the buffer is full, DFCOUT is called to 
punch the contents of the buffer. 

3. For output to the printer or CRT, the data element passed is converted to external 
notation and DFPRNT is called to output the data element. 

Input an Element from an External Data File— SFGETR 

SFGETR is called to input the next sequential data element from an external data file. 
This data file may be on either disk or card. The next sequential data element, arithmetic 
or character, is accessed and placed in the run-time stack area. If input is from the card 
reader, the data element must be converted to internal notation before it is passed. When 
all data elements in the buffers allocated to the file are depleted, a call is made to the 
appropriate routine to refill the buffers in virtual memory. Refer to "Label Trace for 
GET Pseudo Instruction." 

Close or Reset External Data Files-SFRSET 

For disk or card output files, SFRSET outputs the last data elements (current contents 
of the buffers). For either input or output files, the current usage is set undefined (close 
only), the current buffer pointer is set to zero, and the displacement to the next sector 
of data within the file library (disk files only) is set to zero. 

Keyboard Input-FZXINP 

FZXINP execution causes keyboard data entry to be enabled during program operation. 
Entered data is syntax checked with respect to form and type, and valid elements are 
converted to internal format and placed in the run-time stack on an individual basis. 

FZXINP performs the primary function of supporting the execution of INPUT state- 
ments. On a secondary level, the message printing, syntax checking, and data conversion 
facilities required for INPUT mode are also used for card file input operations. The first 
entry point (FZXIP1) operates in conjunction with stacked data type codes and a count 
parameter in I$PARM to allow keyboard data input and data line validity checking. The 
second entry point (FZXIP2) operates on the validity-checked data line to convert and 
stack sequentially occurring data elements. 
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Six alternate entry points are provided for use with MAT INPUT and GET (card) 
operations: 

• Entry points FZXPQ1, FZXPQ2, and FZXPEM print question mark(s) or error 
messages on the system print device(s). 

• Entry point FZXGCS syntax checks an entire GET (card) input line (into which 
comma delimiters have been inserted where they did not originally exist). 

• Entry point FZXMIS validity checks a partial or entire array row. 

• Entry point FZXCNV converts and stacks individual input line elements after the 
line has been syntax or validity checked. 

Print and Carrier Positioning-FZSPRT 

FZSPRT execution causes data output and/or carrier positioning on the system printer 
under control of codes developed from the format specified in a PRINT statement. 
FZSPRT performs the following functions depending on the code stored in interpreter 
parameter I$PARM: 

1 . Code X'01'— Print and no space. The data element at the top of the run-time 
stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value. The carrier is left positioned 
at the end of the printed value. 

2. Code X t 02'— Print and space full zone. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value; if the element is a character 
reference, the carrier is returned to the start of the next line, before printing, 
when the current line does not contain a full print zone (18 spaces). At the end 
of printing, the carrier is spaced to the end of the full print zone. 

3. Code X*03'— Print and space packed zone. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value . After an arithmetic element is 
printed, the carrier is spaced to the end of the packed print zone; after a 
character element is printed, the carrier is left positioned at the end of the 
printed element. 

4. Code X'04'— Print and return carrier. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value. After the element is printed, the 
carrier is returned to the start of the next line. 

5. Code X'05'— Space full zone. The carrier is spaced 18 characters. If no more than 
18 characters remain in the current line, the carrier is returned to the start of the 
next line. 

6. Code XW— Space packed zone. The carrier is spaced three characters. If no more 
than three characters remain in the current line, the carrier is returned to the start 
of the next line. 

7. Code XW— Return carrier. The carrier is returned to the start of the next line. 

8. Code X'08'— Return carrier on condition. When the current line does not contain 
more than 18 characters, the carrier is returned to the start of the next line. 

When required, element conversion and output are performed in the run-time stack, 
so that the stacked value is not recoverable after printing. Arithmetic element output 
format depends on the magnitude and fractional characteristics of the value; character 
reference formatting involves truncation of trailing blanks; character constants are 
printed as specified in the PRINT statement. 
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Either the matrix printer or the CRT (or both) may be used for output, depending on 
the current definition of the system printer. CRT output is based on a fixed display 
width of 64 characters, while printer line width is based on that assigned through the 
WIDTH system command. 

Print Using Image-FZUPRT 

FZUPRT execution causes a print image to be established in virtual-memory buffers and 
data elements to be output on the system printer under format control of image con- 
version specifications. FZUPRT performs the following functions depending on the code 
stored in interpreter parameter I$PARM: 

1. Code X'OO'— Release image. Virtual-memory pages containing the currently 
established image are unlocked for replacement during normal paging operations. 

2. Code X'OT— Null image specification. This code causes a null image indicator to 
be set for future PRINT USING operations; no image buffers are established. 

3. Code X'02'— Null print list specification. This code causes the currently established 
image to be printed, up to the character preceding the first conversion specifica- 
tion or end of image, and the carrier returned to the start of the next line; a null 
image results in a simple carrier return. 

4. Code X'03'— Null character constant. This code causes the next available conver- 
sion specification in the image work buffer to be filled with blanks. 

5. Code X'04'— First image segment. This code causes the character constant segment 
at the top of the run-time stack to be established as the first image segment in the 
image save buffer. 

6. Code X'05'— Secondary image segment. This code causes the character constant 
segment at the top of the run-time stack to be added to the existing image segments 
in the image save buffer. 

7. Code X'06'— Primary data element. A primary data element is defined as a floating 
point value, a character element, or the first segment of a multisegment character 
constant. This code causes the primary data element at the top of the run-time 
stack to be converted and placed in the image work buffer according to the next 
available conversion specification. 

8. Code X'07'— Secondary data element. A secondary data element is defined as any 
segment (except the first) of a multisegment character constant. This code causes 
the secondary data element at the top of the run-time stack to be converted and 
placed in the image work buffer according to the currently referenced conversion 
specification (i.e., added to the current contents of the conversion specification). 

Operations involving the "next available" conversion specification imply the following 
actions: 

1 . When no unfilled conversion specification remains in the image work buffer, the 
filled image is printed and the carrier is returned to the start of the next line. 

2. When an image is to be printed, the carrier is returned to the start of the next line 
(before printing occurs) when not already positioned at the start of the current 
line. 

3. Following step 1, all conversion specifications in the image become available, with 
the "next available" specification being the first contained in the image. 

In conjunction with the codes, these indicators may be set in I$PARM: 

1 . Mask X' 10'— Terminate print using. This indicator causes the image to be printed, 
up to the character preceding the next conversion specification or end of image, 
following the activity specified by the control code itself. All image buffers are 
released from core VM. 
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2. Mask X'20'— Matrix end of row. This indicator causes the image to be printed, up 
to the character preceding the next conversion specification or end of image, fol- 
lowing the activity specified by the control code itself. Image buffers remain 
locked in core VM, and step 3 in the previous paragraph becomes effective. 

Either the matrix printer or the CRT (or both) may be used for output, depending on 
the current definition of the system printer. 

Keyboard Input to a Matrix- FZ DM IP 

FZDMIP contains the run-time routine which executes matrix operations for an array 
referenced in a MAT INPUT statement. FZDMIP performs INPUT operations for each 
element of the matrix referenced by the arithmetic array dope vector at the top of the 
run-time stack. Elements are entered on a row-by-row basis, each data line consisting of 
an entire partial array row. Partial array rows are terminated with a comma preceding 
the keyboard carriage return; the end of a row is signified with a carriage return without 
a preceding comma. 

A single question mark is printed to request entry of the first array row. Thereafter, 
two question marks are printed to request data line entry until the array is completely 
assigned. Input errors in any single line cause a request (??) for the reentry of the entire 
row associated with that line (after an appropriate error message has been printed). 
Input is automatically terminated when each array element has been assigned a value. 

Inquiry request may be invoked whenever the keyboard has been enabled for input. 
This results in reexecution of the STH pseudo instruction associated with the current 
MAT INPUT statement. 

Matrix I/O Routines- FZAMIO 

FZAMIO contains the run-time routines which execute matrix operations for an array 
referenced in a MAT READ, MAT GET, or MAT PUT statement. FZAMIO performs 
operations for each element of the matrix referenced by the arithmetic array dope vector 
at the top of the run-time stack: 

1 . READ-Successive elements from the program DATA file are assigned, beginning 
at the DATA file element currently referenced by I$DATA, to elements in the 
referenced matrix on a row-by-row basis; I$DATA is left referencing the first 
unused DATA element. 

2. GET— Successive elements from the currently active external input file are assigned, 
beginning at the element currently referenced by the file pointer, to elements in 
the referenced matrix on a row-by-row basis; the file pointer is left referencing the 
first unused file element. 

3. PUT— Elements from the referenced matrix are assigned, on a row-by-row basis, 

to successive element positions in the currently active external output file beginning 
at the element position currently referenced by the file pointer. The file pointer is 
left referencing the first unused file element position. 

Matrix Print Routines-FZCMPR 

FZCMPR contains the run-time routines which execute matrix operations for an array 
referenced in a MAT PRINT or MAT PRINT USING statement. FZCMPR performs 
PRINT (full zone format), PRINT (packed zone format), or PRINT USING operations 
for each element of the matrix referenced by the arithmetic dope vector at the top of 
the run-time stack: 

1. PRINT (full zone format)-Successive elements from the referenced matrix are 
printed, on a row-by-row basis, on the system print device; each element is 
printed as specified for full zone output. (Refer to "Print and Carrier Positioning— 
FZSPRT.") 
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2. PRINT (packed zone format)— Successive elements from the referenced matrix 
are printed, on a row-by-row basis, on the system print device; each element is 
printed as specified for packed zone output. (Refer to "Print and Carrier 
Positioning-FZSPRT.") 

3. PRINT USING— Successive elements from the referenced matrix are printed, on a 
row-by-row basis, on the system print device; each element utilizes the "next 
available" conversion specification in the currently active image. (Refer to "Print 
Using Image-FZUPRT.") The printer carrier is positioned, prior to output of the 
first array element, such that two blank lines exist between the first matrix row 
and the previous printed line. Each matrix row is separated from the previous row 
with a blank line, and the carrier is returned following output of the final matrix 
row. 

Miscellaneous Execution Subroutines 

Trace Line Numbers Subroutine— FZLINT 

FZLINT is called during the execution of every STH and IMH pseudo instruction when 
execution is in trace line number mode. The binary line number at label $INLNO is 
converted to a four-digit decimal integer and displayed on the system printer (matrix 
printer and/or CRT). 

Trace Variables Subroutine— FZVART 

FZVART is called when execution is in trace variables mode and the trace bit is on in a 
referenced arithmetic element or character field. Using the virtual address located at label 
I$PARM, the compiler symbol tables are searched to locate the variable name (symbol) 
assigned to the element or field. 

The variable name along with the current value or contents of the element or field is 
displayed on the system printer (matrix printer and/or CRT). If the element or field is 
within an array, the subscripts of the element or field are also displayed. 

The subscripts of the element or field are developed by this subroutine by incrementing 
the array's base virtual address by the element or field length until it is equal to the virtual 
address of the element or field (I$PARM). 

The compiler symbol tables are searched in this order: 

1 . Arithmetic variable (letter) symbol table (LVT) 

2. Character variable symbol table (CVT) 

3. Arithmetic variable (letter-digit) symbol table (LDT) 

4. Character array symbol table (CAT) 

5. Arithmetic array symbol table (NAT) 

Virtual Memory Push/Pull Subroutine- FZZV MP 

• FZZVMP has two entry points: FZZVPS and FZZVPL. 

Entry FZZVPS: This entry causes all modified virtual memory pages in core to be 
written back to disk. All pages in core referenced with a modify switch in the lock and 
read only indicator table (located in the paging subroutine, IPGMDL) are written back 
to their respective locations in virtual memory. 

Entry FZZVPL: This entry causes all unlocked virtual memory pages in core to be 
re-read from disk virtual memory. All pages in core referenced with a lock switch in the 
lock and read only indicator table (located in the paging subroutine, IPGMDL) are read 
into core at their respective locations. 

Both procedures are automatically adjusted to process an expanded table and core 
paging area for 12k or 16k systems. 
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Interpreter Execution Overlay Programs 

Matrix In version /De term 'man t— #FI S TD and #FILNG 

Two interpreter execution overlays reside in the system program file. Either one overlays 
the core-resident interpreter at X'OEOO* to perform matrix inversion or determinant 
functions during execution of the BASIC program. #FISTD performs these functions in 
standard precision and #FILNG performs them in long precision. These overlays are 
called by the virtual -memory-resident execution subroutine, FVBINV/FVBDET (VM 
page X'45'). 
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Random Number Generator- FQSRND and FQLRND (Figure 3-166. 1) 

The random number generator is a routine contained in #FMSTD (#FMLNG). It is 
paged into any available page in main storage above the interpreter. 

The following algorithm is used to generate the primary sequence of numbers: 
U 0 =(U 2 + U 3 )modP 
where Uq, and U3 are the numbers being calculated now, 2 times ago, and 
3 times ago, respectively, and P is the prime number. 

A subsequence is then obtained by taking every fourth element of the primary sequence. 
This subsequence provides the mantissa of the numerator in the expression: 
i R=U/P 

where R is the output random number. The period for standard precision is 
approximately 10^ and the period for long precision is approximately 10^. 

The initial values for the variables in Figure 3-166.1 are: 



Standard precision 


Long precision 


P = 6684673 


P = 8206787908271 11 


X = 3926991 


X= 109050773266576 


Y= 1442695 


Y = 797882384626433 


Z = 8414709 


Z = 832795028878064 



Find Disk Da ta Fiie-#SFFiN (Figure 3- 1 67) 

#SFFIN is a program called from the system program file, and overlays part of the core- 
resident interpreter (#INSTD or #INLNG). The calling routine must save the core-resi- 
dent interpreter in the system work area prior to loading #SFFIN. 

Using file directory 1, #SFFIN locates disk data files when they are first accessed at 
program execution time. For a permanent file, #SFFIN searches all disks on the system 
for the filename, password, and volume-ID specified. The status of the file is checked and 
the necessary information is placed in file directory 2. For a scratch file, the space speci- 
fied in the ALLOCATE command is sought for in all the null directories on the system 
and necessary information is returned in file directory 2. 

Before returning to the calling routine, #SFFIN starts I/O to begin the restore of the 
core-resident interpreter. Refer to the interpreter core map (Figure 3-163), 
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Figure 3-166.1. Random Number Generator (FQSRND, FQLRND) Flowchart 
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Logical IOCS for Disk Data Files-#SFLOA (Figure 3-168) 



#SFLOA is a program called from the system program file to overlay the core-resident 
interpreter (#INSTD or #INLNG). The calling routine must save the core-resident inter- 
preter in the system work area prior to loading #SFLOA. 

#SFLOA executes multiple sector transfer operations between allocated buffers in 
virtual memory and the data file located in the file library. Output is transferred to the 
file library; input is transferred to virtual memory. Before returning to the calling routine, 
#SFLOA starts I/O to begin the restore of the core-resident interpreter. All actual disk 
I/O is performed by branching to SDISKN in the system nucleus. Refer to the interpreter 
core map (Figure 3-163). 



c 



#SFLOA 



INITIALIZATION 



1 . Set up exit to return to calling location. 

2. Set file base disk address in DL2RAD. 

3. Set up the DPL to reference the saved file. 

4. Set up the virtual memory disk address. 



SFPUTR 



SFL105 




TRANSFER DATA BLOCKS FROM 
VIRTUAL MEMORY TO FILE LIBRARY 



1. If not end-of-file, tack an 'end-of-f He' sector 
to buffer. 

2. Search page table for buffer pages. 

a) If not in core, call DL4ICS to read it 
into #SFLOA buffer. 

b) If in core, call SFL700 (see below) to 
calculate core page address; move page 
to #SFLOA buffer. 

3. Call DL2ICS to write to file library. 



SFGETR 



SFL400 



TRANSFER DATA BLOCKS FROM THE 
FILE LIBRARY TO VIRTUAL MEMORY 



Call DL2ICS to read data blocks from file library. 
Call DL4ICS to write data blocks to virtual 
memory. 

Search page table for buffer pages: 



re r.a<! £CJ 



in core, ca 



.700 (see below) to calculate 



core page address; move page from #SFLOA 
buffer to VM core page location. 



Return to 
Calling Sequence 
(SFPUTR or SFGETR) 



SFL700 



DETERMINE CORE PAGE LOCATION 



1. Save return. 

2. Calculate physical core address. 

3. Clear the page status indicators. 

4. Calculate position in core page usage table. 

5. Set usage counter to zero. 

6. Clear the virtual memory page in core indicator in 
the page table. 

7. Return to calling location. 



Figure 3-168. Logical IOCS for Disk Data Files (#SFLOA) Flowchart 
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Label Trace for ADD Pseudo Instruction 

The following labels trace the execution of the ADD pseudo instruction. This trace 
illustrates an instruction executed entirely by core-resident routines. 

1 . INTXEC-The op code value for the ADD pseudo instruction (XW) indexes the 
op code execution branch address table (INTBAT). 

2. INT100— Pass control to a core-resident execution subroutine. In this case, the 
entry point is ICFADD. 

3. ICFADD— Pass control to the core-resident floating point add subroutine 
(FDIADD). 

4. FDIADD— Perform floating-point addition of the top two run-time stack elements. 
IZSTAK references the run-time stack. 

5. ICF020— Pass control back to the interpreter executive at INTAD1 . 

6. INT AD 1— Increment the pseudo instruction address register (INTIAR) by one 
byte (length of ADD instruction) in preparation for the next sequential pseudo 
instruction. 

7. INTXEC-Access the next pseudo op code. 
Label Trace for GET Pseudo Instruction 

The following labels trace the execution of the GET pseudo instruction. Prior to this 
GET, an external data file was activated by an ADF pseudo instruction. This trace 
illustrates an instruction that requires paging of subroutines from virtual memory. This 
example also includes a save/overlay/restore of the core-resident interpreter. Labels 
marked with * are located in the core-resident interpreter. Unmarked labels are located 
in virtual-memory-resident execution subroutines. 

1 . *INTXEC— The op code value for the GET pseudo instruction (X'52') indexes 
the op code execution branch address table (INTBAT). 

2. *INT100-Pass control to a core-resident execution subroutine. In this case, the 
entry point is ICVFIO. 

3. *ICFVIO— Branch to the paging subroutine. The DC following the branch instruc- 
tion is the virtual entry point in the required virtual memory page. 

4. *IPGCAL— Read and lock page X'lA' into the paging area. This page contains the 
execution subroutine IDFILE. 

5. IDFILE-Pass control to the routine at label IDFGET. 

6. IDFGET-Branch to the paging subroutine. I$CALL is equated to IPGCAL. The 
virtual address operand of the GET pseudo instruction was stored in the DC 
following the branch to I$CALL. In this case, the virtual address operand equals 
X'2100\ 

7. *IPGCAL— Read and lock page X'21' into the paging area. This page contains the 
execution subroutine SFGETR. 

8. SFGETR-Check file usage and device type. 

9. SFG290-Branch to the paging subroutine (I$CALL). 

1 0. *IPGCAL-Read and lock page X'22' (second page of SFGETR). 

1 1 . SFGBS2-Assuming the input buffer is empty, branch to the paging subroutine 
(ISCALL). 

12. *IPGCAL-Read and lock page X'23' (third page of SFGETR). 

13. SFGBS3-Assume the input buffer must be filled. 

14. SFG780-Save the core-resident interpreter on cylinder 9 of the system work 
area. 

15. SFG790-Load #SFLOA at X'OFOO', via SBLOAD in the system nucleus. 

16. SFLOAD— This subroutine copies data, in blocks, from the user's external data 
file in the file library to the pages in virtual memory assigned as input buffers for 
this file. (See Figure 3-168.) The core-resident interpreter is restored to core. 
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17. SFG795-Wait for I/O complete on the interpreter restore operation; then deter- 
mine the data file type. 

18. SFG900^Branch to the paging subroutine. I$RTRN is equated to IPGRTN. 

19. *IPGRTN-Unlock page X'23' and return to the calling page, X'22\ 

20. SFG450-Move the data item to the run-time stack. 

21 . SFG695-Branch to the paging subroutine (I$RTRN). 

22. *IPGRTN-Unlock page X'22' and return to the calling page, X'21\ 

23. SFG295-Branch to the paging subroutine. I$UNLK is equated to IPGULK. 

24. IPGULK— Unlock directory 2 (page number X'01') and return to the same page, 
X'21\ 

25. SFG295+9-Branch to the paging subroutine (I$RTRN). 

26. *IPGRTN-Unlock page X'21' and return to the calling page, X'l A'. 

27. IDF120-Establish the virtual address destination and the data element type. 

28. IDF 140— Branch to the core-resident element unstacking subroutine. I$USTK is 
equated to IUSTAK. 

29. * IUSTAK —Branch to the paging subroutine. The destination virtual address in 
the run-time stack is referenced by I$VADR. The data element, also in the run- 
time stack, is referenced by @XR. 

30. *IPGMOD— Read the page referenced by I$VADR into the paging area. Read- 
only bit is set for the page. 

- 31. *IUS012— Move the data element from the run-time stack to the referenced 
displacement (second byte of I$VADR). 

32. *IUS1 50-Return to page X'l A 5 . 

33. IDF1 50— Load @XR with the return address in the interpreter executive. I$XAD3 
is equated to INT AD 3. 

34. IDF990-Branch to the paging subroutine (ISRTRN). 

35. *IPGRTN— Unlock page X'l A' and return to the interpreter executive. 

36. *INTAD3— Increment the pseudo instruction address register (INTIAR) by three 
bytes (length of the GET instruction) in preparation for the next sequential pseudo 
instruction. 

37. *INTXEC— Access the next pseudo op code. 

PSEUDO INSTRUCTION SET 

Pseudo instructions make up the pseudo machine language and invoke the execution of 
preassembled machine language execution subroutines to perform the functions indi- 
cated by the pseudo instruction name. Figure 3-169 contains a table of the mnemonic 
operation codes, in alphabetic order, for all pseudo machine instructions. Figure 3-170 
shows the pseudo instruction formats. 

Detailed descriptions of the pseudo instructions follow these two figures, which should 
be used as references in following the descriptions. The instructions are described in 
order as follows: 

1 . Arithmetic operations 

2. Function call operations 

3. I/O operations 

4. Logical operations 

5 . Stack and unstack operations 

6. Miscellaneous operations 

7. Nonexecutable operations 
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Mnemonic 


Length 
(bytes) 


Operand 


Hexadecimal 
Op Code 


Name 


ADD 


1 


* 


06 


Add 


ADF 


2 


XX 


58 


Activate external data file 


BNX 


3 


VADR 


4A 


Branch and suppress execution 


BRA 


3 


VADR 


46 


Branch unconditionally 


BRC 


4 


VADR CC 


44 


Branch on condition 


BRD 


3 


VADR 


48 


Branch and delete function 
entry 


BRS 


1 


* 


4C 


Branch to stacked address 


CLS 


1 


* 


5E 


Close external data file 


CMC 


1 


* 


42 


Compare character elements 


CMF 


1 


* 


40 


Compare floating point values 


CSA 


2 


NN 


3E 


Compute stacked address 


DCA 


3 


VADR 


6A 


Define constant address 


DDL 


3 


VADR 


6C 


Define data linkage 


DIV 


1 


* 


OC 


Divide 


DWA 


2 


NN 


6E 


Define work area 


EOF 


1 




70 


End of program 


EOP 


1 


* 


68 


End of page 


FCI 


3 


VADR 


16 


Function call— indirect 


FNO 


3 


VADR 


12 


Function call— no argument 


FN1 


3 


VADR 


14 


Functional call— one argument 


FOR 


3 


VADR 


4E 


Initiate FOR loop 


GET 


3 


VADR 


52 


Input data element 


HLT 


1 


* 


04 


Halt execution 


IMH 


3 


LINE 


66 


Image statement header 


INI 


2 


NN 


56 


Initiate keyboard input 


MF1 


3 


VADR 


18 


Single matrix function call 


MF2 


3 


VADR 


1A 


Double matrix function call 


MF3 


3 


VADR 


1C 


Triple matrix function call 


MPY 


1 


* 


OA 


Multiply 


MSM 


3 


VADR 


1E 


Matrix scalar multiply 


NEG 


1 


* 


10 


Negate 


NXT 


3 


VADR 


50 


Perform next step 


PRS 


2 


XX 


60 


Print and space carrier 


PRU 


2 


XX 


62 


Print using image 


PUT 


2 


XX 


54 


Output data element 


PWR 


1 


* 


OE 


Exponentiate 


RSR 


1 


* 


5A 


Restore internal data file pointer 


DCT 

no 1 


i 
i 


* 




Ppcpt pytprnal Hata filp Dointpr 

IICOCI CA LCI IIQI Ua la f lie [JUII 1 IUI 


SA1 


3 


VADR 


36 


Stack vector array element address 


SA2 


3 


VADR 


38 


Stack matrix array element address 


SB1 


3 


VADR 


3A 


Stack character array element 
address 


SC1 


3 


VADR 


2A 


Stack character array field 



Figure 3-169. Pseudo Instruction Reference List (Part 1 of 2) 
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Mnemonic 


I pnnth 

(bytes) 


Operand 


Hexadecimal 
Op Code 


Name 


SDO 




3 


VADR 


2E 


Stack arithmetic array descriptor 


SD1 




3 


VADR 


30 


Stack arithmetic array descriptor 


SD2 




3 


VADR 


32 


Stack arithmetic array descriptor 


SF1 




3 


VADR 


22 


Stack arithmetic vector element 


SF2 




3 


VADR 


24 


Stack arithmptir matrix plpmpnt 


STA 




3 


VADR 


34 


Stack virtual address 


STC 




3 


VADR 


28 


Stack character field 


STF 




3 


VADR 


20 


Stack floating point value 


STH 




3 


LINE 


64 


Statement header 


STX 




2 


XX 


3C 


Stack execution control code 


SUB 




1 


* 


08 


Subtract 


SVC 




1 




02 


Supervisor call 


use 




2 


NN 


2C 


Unstack character element 


USF 




1 


* 


26 


Unstack floating point element 


Notes: 












* 

VADR- 

XX- 

NN— 

LINE— 

CC- 


no operands 

2-byte virtual address - 

1-byte execution control code 

1- byte binary execution count 

2- byte binary statement line number 
1-byte branch condition code. 
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Figure 3-169. Pseudo Instruction Reference List (Part 2 of 2) 



Byte 1 



Op Code 



Op Code 



Op Code 



Op Code 



Op Code 



Byte 2 



Byte 3 



Count 



Code 



Virtual Address 



Line Number 



Byte 4 



Op Code 



Virtual Address 



Condition 
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Figure 3-170. Pseudo Instruction Formats 
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Arithmetic Operations 

Add 

ADD 

XW 
0 7 

BR1233 

The floating-point value at the top stack location (the top of the run-time stack) is added 
to the floating-point value at the second stack location. Both values are deleted from the 
stack and the sum (in floating-point notation) is placed at the top stack location. 



Example: 

PMC Sequence Run-Time Stack 



STF VADR of A 


Before 


Y 


X 


A 


B 


STF VADR of B 














>-ADD 


After 


Y 


X 


A+B 










Top of Stack 









BR1234 

Subtract 

SUB 

X'08' 
0 7 

BR1235 

The floating-point value at the top stack location is subtracted from the floating-point 
value at the second stack location. Both values are deleted from the stack and the dif- 
ference (in floating-point notation) is placed at the top stack location. 

Example: 



PMC Sequence 


Run-Time Stack 






STF VADR of A 


Before Y 


X 


A 


B 


STF VADR of B 








>-SUB 


After Y 


X 


A-B 






Top of Stack 
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Multiply 

MPY 

X'OA' 
0 7 

BR1237 

The floating-point value at the second stack location is multiplied by the floating-point 
value at the top stack location. Both values are deleted from the stack and the product 
(in floating-point notation) is placed at the top stack location. 

Example: 



PMC Sequence 


Run-Time Stack 






STF VADR of A 


Before Y 


X 


A 


B 


STF VADR of B 








>-MPY 


After Y 


X 


A*B 






Top of Stack 







BR1238 

Divide 
piv 

X'OC 
0 7 

BR1239 

The floating-point value at the second stack location is divided by the floating-point 
value at the top stack location. Both values are deleted from the stack and the quotient 
(in floating-point notation) is placed at the top stack location. 



Example: 

PMC Sequence Run-Time Stack 



STF VADR of A 


Before 


Y 


X 


A 


B 


STF VADR of B 














► DIV 


After 


Y 


X 


A/B 










Top of Stack 









BR1240 
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Exponentiate (Power) 
PWR 



X'OE' 



0 7 
BR1241 

The floating-point value at the second stack location is raised to the power specified by 
the floating-point value at the top stack location. Both values are deleted from the stack 
and the result is placed at the top stack location. 

Example: 



PMC Sequence 


Run-Time Stack 






STF VADR of A 


Before Y 


X 


A 


B 


STF VADR of B 








>-PWR 


After Y 


X 


A t'B 






Top of Stack 







BR1242 



Negate 
NEG 



X'10' 



7 

BR1243 



The floating-point value at the top stack location is negated. The original value at the top 
stack location is deleted and the negated value is placed at the top stack location. 

Example: 



PMC Sequence Run-Time Stack 








STF VADR of A Before Y 


X 


A 




>-NEG 








After Y 


X 


-A 




Top of Stack 
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Matrix Scalar Multiply 
MSM 



X'1E' 



VADR 



7 0 



BR1245 



The third stack location contains an arithmetic array descriptor that defines the matrix 
to contain the product elements. These elements are the result of multiplying the 
matrix defined by the arithmetic array descriptor at the first (top) stack location, by 
the floating-point value at the second stack location. VADR is the virtual entry point to 
a subroutine in virtual memory that performs the operation. The multiplier value and 
both array descriptors are deleted from the stack after the function is executed. 



Example: 
BASIC Statements 
0100 MAT C= (A) * M 



0110 (statement) 
Run-Time Stack 



PMC Sequence 
STH 0100 

SD0 VADR of Descriptor for C 
STF VADR of A 
SD0 VADR of Descriptor for M 
*-MSM VADR of Subroutine 
STH 0110 



Before Y 


X 


Desc (C) 


A 


Desc (M) 






After Y 


X 




Top of Stack- 



Desc— Array Descriptor (array dope vector) 
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Function Call Operations 



Function Call— No Argument 
FNO 



X'12' 



VADR 
I 



7 0 



7 0 7 
BR1247 



No argument is required for the execution of this pseudo instruction. VADR is the 
virtual entry point to a subroutine in virtual memory that performs the function. The 
floating-point value (R), resulting from execution of the function, is placed at the top 
stack location. Refer to the intrinsic function virtual address equates in the program 
listing "System Equates" ($V$EQU in #TEQU2). An example of a function performed 
by this instruction is the "no argument" form of intrinsic function RND. 



Example: 
PMC Sequence 



Run-Time Stack 



>~FN0 VADR of Subroutine Before Y 


X 








After Y 


X 


R 




Top of Stack 



BR 1248 



Function Call— One Argument 
FN1 



X'14' 



I 

VADR 



7 0 



7 0 7 
BR1249 



The floating-point value at the top stack location is used as the argument for the func- 
tion. VADR is the virtual entry point to a subroutine in virtual memory that performs 
the function. The floating-point value (R), resulting from execution of the function, 
replaces the argument (A) at the top stack location. Refer to the intrinsic function 
virtual address equates in the program listing "System Equates" ($V$EQU in #TEQU2). 
An example of a function performed by this instruction is computation of the tangent 
(TAN) of the argument, the argument being expressed in radians. 



Example: 
PMC Sequence 

STF VADR of A 
►FN1 VADR of Subroutine 



Run-Time Stack 



Before 



After 



Top of Stack- 



BR1250 
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Function Call— Indirect 

FCI 



X'16' 



1 

VADR 



7 0 



7 0 7 
BR1251 



The floating-point value at the top stack location is used as the argument for the user 
function whose linking address is defined at VADR. The value at the top stack location 
is deleted, and control is transferred to the pseudo instruction which begins the user 
function execution. Linkage is established such that the function execution sequence 
returns control to the pseudo instruction following the FCI. 

Prior to user function execution, the user function activity table is searched for an 
entry that matches VADR. When no match occurs, VADR is added to the table. When 
a match does occur, or when the table size is exceeded, a terminal error condition is 
indicated. A match in the table occurs when user function is referenced within the defini- 
tion of that same function. 



Example Using FCI \ BRD, andDWA Pseudo Instructions: 
BASIC Statements PMC Sequence 



0100 DEF FNA(D) 



0110 ... FNA(B) . . . 



STH 0100 

BRA VADR of 0110 (bypass) 
-BRA VADR* (return linkage) - 
DWA NN 
(argument) 



■ BRD VADR 
-STH 0110 



Link 
VADR 



STF VADR of B (argument) 
FCI VADR of Link Address- 



Run-Time Stack 



Before 
FCI 


X 


B 






After** 
FCI 


X 




Top of Stack 1 



* This VADR (return linkage) is established at execution time by the FCI function execution 
subroutine. 

** "After" refers to the logical stack condition immediately after the FCI instruction execution, 
but before the execution of the DEF statement expression. 

BR1252 
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Single Matrix Function Call 
MF1 



X'18' 



1 

VADR 



7 0 



7 0 7 
BR1253 



The arithmetic array descriptor at the top stack location references the single matrix 
argument for the matrix function to be performed. VADR is the virtual entry point to 
a subroutine in virtual memory that performs the function. The array descriptor is 
deleted from the top stack location after the function is executed. Refer to matrix func- 
tion virtual address equates in the program listing "System Equates" ($V$EQU in 
#TEQU2). An example of a function performed by this instruction is matrix I/O 
operations. 



Example: 
BASIC Statements 
0100 MAT INPUT A 



0110 (statement) 
Run-Time Stack 



PMC Sequence 
STH 0100 

SD0 VADR of Descriptor for A 
-MF1 VADR of Subroutine 
STH 0110 



Before Y 


X 


Desc (A) 






After Y 


X 


Top of Stack 1 



Desc— Array Descriptor (array dope vector) 



BR1254 
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Double Matrix Function Call 
MF2 



VADR 



7 0 



X'1A' 



7 0 



BR1255 



The arithmetic array descriptors at the second and top stack locations reference the two 
matrix arguments for the matrix function to be performed. VADR is the virtual entry 
point to a subroutine in virtual memory that performs the function. Both array descrip- 
tors are deleted from the stack after the function is executed. Refer to matrix function 
virtual address equates in the program listing "System Equates" ($V$EQU in #TEQU2). 
An example of a function performed by this instruction is matrix assignment. 

Example: 

BASIC Statements PMC Sequence 

0100MATA = B STH 0100 

SD0 VADR of Descriptor for A 
SD0 VADR of Descriptor for B 
^MF2 VADR of Subroutine 
0110 (statement) STH 0110 



Run-Time Stack 



Before 



After 



Desc (A) Desc (B) 



Top of Stack 

Desc— Array Descriptor (array dope vector) 



BR1256 
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Triple Matrix Function Call 
MF3 



X'1C 



7 0 



VADR 
_1_ 



7 0 



7 

BR1257 



The arithmetic array descriptors at the third, second, and top stack locations reference 
the three matrix arguments for the matrix function to be performed. VADR is the virtual 
entry point to a subroutine in virtual memory that performs the function. All three array 
descriptors are deleted from the stack after the function is executed. Refer to matrix 
function virtual address equates in the program listing "System Equates" ($V$EQU in 
#TEQU2). An example of a function performed by this instruction is matrix subtraction. 



Example: 
BASIC Statements 
0100 MAT C = A-B 



0110 (statement) 
Run-Time Stack 



PMC Sequence 
STH 0100 

SD0 VADR of Descriptor for C 
SD0 VADR of Descriptor for A 
SD0 VADR of Descriptor for B 
► MF3 VADR of Subroutine 
STH 0110 



Before Y 


X 


Desc (C) 


Desc (A) 


Desc (B) 






After Y 


X 




Top of Stack 



Desc— Array Descriptor (array dope vector) 
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Input/Output Operations 

Input Data Element 
GET 



X'52' 



I 

VADR 
I 



7 0 



7 0 7 
BR1259 



The next sequential data element entered from a file of data elements is stored in virtual 
memory at the virtual address at the top stack location. VADR is the virtual entry point 
to a subroutine in virtual memory that performs the input operation. The referenced 
virtual address is deleted from the stack. 

This pseudo instruction is generated for GET, READ, and INPUT BASIC program 
statements. If the GET is to reference an external data file, it must be preceded by an 
ADF (activate external data file) pseudo instruction. If the GET is to reference the 
internal data file or the system keyboard, it need not be preceded by an ADF instruction. 

Example: 



PMC Sequence 


Run-Time Stack 




STA VADR 


Before Y 


X 


VADR 


>~GET VADR of Subroutine 








After Y 


X 






Top of Stack 





BR1260 



Output Data Element 
PUT 



X'54* 



XX 



7 0 



BR1261 



The data element or field at the top stack location is written in the next sequential loca- 
tion in the currently active data file. This external data file was activated by the last 
executed ADF pseudo instruction. XX defines the type of data (X'02' = arithmetic 
element; X'04' = character field). The data element or field is deleted from the top stack 
location. 



Example: 



PMC Sequence 


Run-Time Stack 




ADF (see ADF) 


Before Y 


X 


A$ 


STF VADR of A$ 






>-PUT 04 


After Y 


X 






Top of Stack ' 
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Initiate Keyboard Input 
INI 



X'56' 



NN 



0 7 0 7 

BR 1263 

This pseudo instruction is generated for the INPUT BASIC statement to initiate an I/O 
operation for input from the keyboard. The execution control codes contained in stack 
locations 1 (top of the stack) through NN are parameters to the initiate input subroutine 
in virtual memory. They are used to verify the data type and number of elements entered 
by the user on the keyboard. Each of the referenced execution control codes is deleted 
from the stack. 

The format of the execution control code, in the STX instructions preceding the INI, 
is: 

Bit 0 = 0 for arithmetic elements; 1 for character fields. 

Bits 1-7 = count of the consecutive elements of the same type. 

Example: 

BASIC Statement PMC Sequence 

0100 INPUT A, B,C,A$, B$, D 

STX 03 (A, B, C) 
STX 82 (A$ 7 B$) 
STX 01 (D) 

>-INI 03 (count of preceding STX instructions) 



Run-Time Stack 



Before Y 


X 


03 


82 


01 






After Y 


X 




Top of Stack 



BR 1264 



Activate External Data File 
ADF 



X'58' 



XX 



0 7 0 7 

BR1265 

The external data file referenced by the character literal in the top of the run-time 
stack is activated. The displacement to the file directory 2 entry for the referenced 
file is calculated, the file is tested for validity, and prepared for either input or output. 
XX equals X'OT when the referenced file is activated for output and equals X'OO' when 
the referenced file is activated for input. 
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Example: 
BASIC Statement 



PMC Sequence 



0100 GET 'ABC, X 



Run-Time Stack 



STC VADDR of 'ABC 
ADF 00 



Before 
After 



ABC 



Top of Stack 



BR2674 



Restore Interna/ Data File Pointer 
RSR 



X'5A' 



BR 1266 

The internal data file pointer is restored to reference the first data element or field in 
the internal data file. Refer to "Define Constant Address" (DCA) and "Define Data 
Linkage" (DDL). These instructions define the data elements and/or fields in the internal 
data file. The next GET (to the internal data file) that is executed references the first 
data element or field in the internal data file. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 



Reset External Data File Pointer 

RST 

X'5C 
0 7 

BR1267 

The external data file pointer, for the currently activated external data file, is reset to 
reference the first data element or field in that file. This external data file was activated 
by the last executed ADF pseudo instruction. The next GET or PUT (to that external 
data file) that is executed references the first data element or field in that external data 
file. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 



Close External Data File 
CLS 

X'5E' 

0 7 
BR1268 

The currently activated external data file is closed. The associated external data file 
pointer is reset to reference the first data element or field in that file. Refer to "Reset 
External Data File Pointer" (RST). Closing an external data file allows that file to be 
activated for input or for output. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 
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Print and Space Carrier 
PRS 



X'60' 



XX 



7 0 



BR1269 



The data element at the top stack location is output on the system printer, or the sys- 
tem printer carrier is positioned, under control of parameter XX. When XX specifies 
data element output, that element is deleted from the top stack location. 
The possible XX codes (hexadecimal) and the functions they perform are: 

XX Function 

01 Print and space suppress 

02 Print and space to long zone 

03 Print and space to short zone 

04 Print and carrier return 

05 Space to long zone 

06 Space to short zone 

07 Carrier return 

08 Conditional carrier return 



Example: 

PMC Sequence 



Run-Time Stack 



STF VADR of A 
-PRS XX = 01-04 



PMC Sequence 



Before 



After 



Top of Stack- 
Run-Time Stack 



>-PRS XX -05-08 



Before 



After Y 



Top of Stack ■ 



BR1270 
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Print Using image 



PRU 



X'62' 



XX 



0 7 0 7 

BR1271 

The data element at the top stack location is output according to the current image, or 
the current image is output, on the system printer under control of parameter XX. When 
XX specifies data element output, that element is deleted from the top stack location. 
The possible XX codes (hexadecimal) and the functions they perform are: 

XX Function 

01 Establish null image specification. 

04 Establish first image character string segment. 

05 Establish secondary image character string segment. 

02 Statement contains no data list. 

06 Print arithmetic or character expression,- including first constant established 
for a character string but excluding a null character string ("). 

07 Print any constant established for a character string except for the first 
constant in that string series. 

03 Print a null character string ("). 

12 Same as code 02 except indicates final PRU instruction for this list. 

16 Same as code 06 except indicates final PRU instruction for this list. 

17 Same as code 07 except indicates final PRU instruction for this list. 

13 Same as code 03 except indicates final PRU instruction for this list. 



Example: 



PMC Sequence 


Run-Time Stack 




STF VADRof A$ 


Before Y 


X 


A$ 


>-PRU XX - 06 








After Y 


X 






Top of Stack 





PMC Sequence 
-PRU XX = 04 



Run-Time Stack 



Before Y . 



After 



Top of Stack ■ 



BR1272 
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Logical Operations 



Compare Floating Point Values 

CMF 

X'40' 
0 7 

BR1273 

The floating-point value at the second stack location is compared algebraically to the 
floating-point value at the top stack location. A compare condition code is set specifying 
greater than, equal to, or less than. Both of the floating-point values are deleted from the 
stack. 



Example: 
If A = B 

PMC Sequence Run-Time Stack 



STF VADR of A 


Before 


Y 


X 


A 


B 


STF VADR of B 












► CMF 


After 


Y 


X 










Top of Stack 







BR1274 

Compare Character Elements 

CMC 

X'42' 
0 7 

BR1275 

The character field at the second stack location is compared with the character field at 
the top stack location. A compare condition code is set specifying a collating sequence 



greater than, equal to, 
stack. 


or less than. Both of the character fields are deleted from the 


Example: 
If A$= B$ . . . 
PMC Sequence 


Run-Time Stack 








STC VADR of A$ 


Before Y 


X 


A$ 


B$ 


STC VADR of B$ 










► CMC 


After Y 


X 








- 

Top of Stack 


i 





BR1276 
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Branch On Condition 
BRC 



X'44' 



VADR 
i 



CC 



7 0 



7 0 



7 0 



BR1277 



Control is transferred to that pseudo instruction which begins at VADR when code CC 
agrees with the current compare condition. If the compare condition is not met, control 
is passed to the next sequential pseudo instruction. 
The possible CC codes (hexadecimal) and the functions they perform are: 

CC Function 

82 Branch low 

84 Branch equal 

88 Branch high 

92 Branch not low 

94 Branch not equal 

98 Branch not high 

The BRC pseudo instruction always follows a CMF or CMC pseudo instruction. The 
contents of the run-time stack are unaffected by the execution of the BRC pseudo 
instruction. 

Branch Unconditionally 
BRA 



X'46' 



VADR 



7 0 



7 0 7 
BR1278 



Control is transferred unconditionally to the pseudo instruction that begins at VADR. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 



Branch and Delete Function Entry 
BRD 



X'48' 



— I — 

VADR 
i 



7 0 



7 0 



7 

BR1279 



The entry at the top of the user function activity table is deleted, and control is trans- 
ferred to the pseudo instruction that begins at VADR. Refer to "Function Call-Indirect" 
(FCI). 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 
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Branch and Suppress Execution 
BNX 



X'4A' 



VADR 



7 0 



7 0 7 
BR1280 



Control is transferred to the pseudo instruction that begins at VADR. The first BRA 
instruction encountered after the transfer of control is suppressed (not executed). 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 



Example: 

BASIC Statements 

0100 PRINT USING 120. 



0110 . . . 
0120 : (image) 



PMC Sequence 
STH 0100 
STA VADR of (A) 
»-BNX VADR of 0120- 

STH 0110 



STH 0120- 



0130 . . 



*BRA VADR of 0130 



- BRS (VADR of (A) is stacked) 
STH 0130-* 



* This BRA is deactivated by the BNX instruction. 
Branch to Stacked Address 

BRS 



BR1281 



X'4C 



VADR 



7 0 



7 0 7 
BR1282 



Control is transferred to the pseudo instruction that begins at the virtual address at the 
top stack location. The virtual address is deleted from the top stack location. 

Example: 



PMC Sequence 


Run-Time Stack 






STA VADR 


Before Y 


X 


VADR 












After Y 


X 




>-BRS 


Top of Stack 


i 





BR1283 



Licensed Material— Property of IBM 



Initiate FOR Loop 

FOR 

X'4E' 



VADR 
i 



7 0 



7 0 



BR1284 



This instruction is always paired with a trailing NXT instruction. VADR is the virtual 
address of the loop control variable. The floating-point value at the third stack location 
(the loop control initial value) is saved in a control variable work area. The floating-point 
values at the second and top stack locations (the final value and increment, respectively) 
are stored in a DWA-defined work area following the NXT instruction in the PMC 
sequence. The three floating-point values are deleted from the stack and control is trans- 
ferred to the NXT instruction such that control variable retrieval and incrementation are 
bypassed. 

The following example illustrates two nested levels of FOR-NEXT BASIC statement 
pairs. 
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Example Using FOR , NXT, andDWA Pseudo Instructions: 



BASIC Statements 

0100 FOR D = C TO B STEP A 



0110 

(statements) 

0170 

0180 FOR H = G TO F 
STEP E 



0190 

(statements) 

0220 

0230 NEXT H 
0240 

(statements) 

0280 

0290 NEXT D 
0300 (statement) 



PMC Sequence 
STH 0100 
STF VADRofC 
STF VADRofB 
STF VADR of A 
>-FOR VADR of D 
-*-NXT VADR of Loop D Exit 
DWA 16 
(8 bytes; limit B) 
(8 bytes; increment A) 
STH 0110 



STH 0180 
STF VADR of G 
STF VADR of F 
STF VADR of E 
FOR VADR of H 
-NXT VADR of Loop H Exit 
DWA 16 
(8 bytes; limit F) 
(8 bytes; increment E) 
STH 0190 



STH 0230 

BRA VADR to Continue Loop H 
STH 0240 ^ 



STH 0290 
• BRA VADR to Continue Loop D 
STH 0300-*- 



Run-Time Stack (first FOR instruction) 



Before Y 


X 


c 


B 


A 






After Y 


X 


Top of Stack 



BR1285 
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Perform Next Step 
NXT 



X'50' 



1 

VADR 



7 0 



7 0 



BR1286 



This instruction is always paired with a preceding FOR instruction, and always precedes 
a DWA instruction that defines a work area containing the final value and increment for 
the loop. Refer to "Initiate FOR Loop" (FOR). The loop control variable stored at the 
VADR of the FOR instruction is placed in a control variable work area and modified 
using the loop increment. When the working value of the control variable exceeds the 
final value, control is transferred to the pseudo instruction that begins at the VADR of 
the NXT instruction (exit). If the working value of the control variable does not exceed 
the final value, it is stored at the VADR of the FOR instruction (loop control variable) 
and control is passed to the STH instruction of the next sequential statement. 

The contents of the run-time stack are unaffected by the execution of the NXT pseudo 
instruction. 

Stack and Unstack Operations 

Stack Floating Point Value 
STF 



X'20' 



I 

VADR 



7 0 



7 0 7 
BR1287 



The floating-point value referenced by VADR is moved from virtual memory to the top 
stack location. The length of the element is precision dependent. The actual data element 
is moved to the stack. 



Example: 

PMC Sequence 



Run-Time Stack 



Before Y 


X 




>-STF VADR of A 




After Y 


X 


A 




Top of Stack 



BR1288 
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Stack Arithmetic Vector Element 
SF1 



X'22' 



— i 

VADR 
i 



7 0 



7 0 7 
BR1289 



The floating-point value at the top stack location is truncated and converted to a binary 
indexing value which is used to reference an element in the one-dimensional arithmetic 
array. VADR is the virtual address of the descriptor (array dope vector) for this array. 
The indexing value at the top stack location is replaced by the floating-point array ele- 
ment. The length of the element is precision dependent. The actual data element is 
moved from the array to the stack. 



Example: 
PMC Sequence 



Run-Time Stack 



STF VADR of Index Value 


Before 


Y 


X 


Index 




^SF1 VADR of Descriptor for A 










-4 1 






After 


Y 


X 


5 






f 








/ Top of Stack 



Desc (A) 





Base 








Vector Array A / 


1 

1 

1 


1 
i 
1 








5 







Element Address = Base + (Index * Element Length) 



BR1290 
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Stack Arithmetic Matrix Eiement 
SF2 



X'24' 



VADR 
i 



7 0 



7 0 



BR1291 



The floating-point values at the second stack location and at the top stack location are 
truncated and converted to binary indexing values. Respectively, these two indexing 
values define row and column values required to reference a single element in a two- 
dimensional arithmetic array. VADR is the virtual address of the descriptor (array dope 
vector) for this array. The two indexing values at the top stack location are replaced by 
the floating-point array element. 



Example: 

PMC Sequence 

STF VADR of Row Index 
STF VADR of Column Index 
-SF2 VADR of Descriptor for A 



Run-Time Stack 



Before 



After 



Row 



Column 



Top of Stack 



Desc (A) 



D1 D2 



Matrix Array A 



Element Address = Base + ((Row - 1) * D2 + Column) * Element Length, where D2 is the array 
column dimension and element length is precision dependent. 



BR1292 
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Unstack Floating Point Element 

USF 

X'26' 
0 7 

BR1293 

The floating-point value at the top stack location is stored in virtual memory at the 
address contained in the second stack location. The value and the referenced address 
are deleted from the stack. 



Example: 

PMC Sequence Run-Time Stack 



STA VADR of VM Location 


Before 


Y 


X 


VADR 


A 














STF VADR of A 


After 


Y 


X 






>-USF 




Top of Stack 







BR1294 



Stack Character Field 
STC 



X'28' 



VADR 

I 



7 0 



7 0 



BR1295 



The character field referenced by VADR is moved from virtual memory to the top stack 
location. The length of a character field is 19 bytes. The actual content of the field is 
moved to the stack. 



Example: 
PMC Sequence 



Run-Time Stack 



>-STC VADR of A$ 



Before 


Y 


X 


■Mt 1 


After 


Y 


X 


A$ 




Top of Stack ; 



BR1296 
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Stack Character Array Field 
SC1 



X'2A' 



VADR 



7 0 



7 0 



BR1297 



The floating-point value at the top stack'' location is truncated and converted to a binary 
indexing value which is used to reference a field in a character array. VADR is the virtual 
address of the descriptor (array dope vector) for this character array. The indexing value 
at the top stack location is deleted and the character array field is moved to the top 
stack location. The length of the character array field is 19 bytes. The actual content of 
the field is moved to the stack. 



Example: 
PMC Sequence 



Run-Time Stack 



STF VADR of Index Value 
>~SC1 VADR of Descriptor for A$ 



Before 



After 





Element Address = Base + (Index * 19) 



BR1298 
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Unstack Character Element 
use 



X'2C 



NN 



7 0 7 
BR1299 



The character field at the top stack location is stored in virtual memory at the virtual 
addresses contained in stack locations 2 through NN+1 . The character field and all of 
the referenced addresses are deleted from the stack. 



Example: 

0100 LET A$, B$, C$= D$ 
PMC Sequence 
STH 0100 

STA VADR of A$ Before 
STA VADR of B$ 
STA VADR of C$ 
STC VADR of D$ 
-USC 03 



Run-Time Stack 



X 


VADR A$ 


VADR B$ 


VADR C$ 


D$ 

















NN = 03 



After 



-Top of Stack - 



BR1300 



Stack Arithmetic Array Descriptor 

SD0 



X'2E' 



VADR 



7 0 



7 0 7 
BR1301 



The arithmetic array descriptor (array dope vector) referenced by VADR is moved to the 
top stack location. Arithmetic array dope vectors are eight bytes in length. The actual 
contents of the dope vector are moved to the stack. 



Example: 
PMC Sequence 



Run-Time Stack 



*-SD0 VADR of Descriptor 



Before 
After 



Y 


X 












Y 


X 


Desc 








Top of Stack 


^Desc ^ 









D1 


D2 


Size 


Base 



BR1302 
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Stack Arithmetic Array Descriptor (Redim ens/on 1) 
SD1 



X'30' 



VADR 



7 0 



7 0 7 
BR1303 



The floating-point value at the top stack location is truncated and converted to a binary 
array dimension. This new dimension replaces the single dimension (Dl) in the arithmetic 
array descriptor (array dope vector) referenced by VADR. The binary array dimension 
value is deleted from the stack. The redimensioned arithmetic vector descriptor is moved 
to the top stack location. (The descriptor is also redimensioned in virtual memory.) 

Arithmetic array dope vectors are eight bytes in length. The actual contents of the 
redimensioned dope vector is moved to the stack. 



Example: 
PMC Sequence 

STF VADR of New D1 
*-SD1 VADR of Descriptor 



Run-Time Stack 



Before 



After 



Top of Stack y 




Y 


X 


D1 












Y 


X 


Desc (redimensioned) 



Desc 



Old D1 


Old D2 


Size 


Base 




New D1 


New D2 


Size 


Base 



BR 1304 
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Stack Arithmetic Array Descriptor (Redimension 2) 

SD2 



X'32' 



VADR 
i 



7 0 



7 0 7 
BR1305 



The floating-point value at the second stack location is truncated and converted to a 
binary array row dimension (Dl). The floating-point value at the top stack location is 
truncated and converted to a binary array column dimension (D2). These new dimen- 
sions replace Dl and D2 in the arithmetic array descriptor (array dope vector) referenced 
by VADR. Both binary array dimension values are deleted from the stack. The redimen- 
sioned arithmetic matrix descriptor is moved to the top stack location. (The descriptor 
is also redimensioned in virtual memory.) 

Arithmetic array dope vectors are eight bytes in length. The actual contents of the 
redimensioned dope vector are moved to the stack. 

Example: 



PMC Sequence 


Run-Time Stack 












Top of Stack 




STF VADR of New D1 


Before Y 


X 


D1 


D2 


STF VADR of New D2 










*-SD2 VADR of Descriptor 


After Y 


X 


Desc (redimensioned) 




New D1 


New D2 


Size 


Base 



BR1306 
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Stack Virtual Address 
STA 



X'34' 



1 

VADR 
I 



7 0 



7 0 7 
BR1307 



The virtual address in the second and third bytes (VADR) is moved to the top stack 
location. 



Example: 
PMC Sequence 



Run-Time Stack 



Before Y 


X 




STA VADR 




After Y 


X 


VADR 




Top of Stack 



BR1308 



Stack Vector Array Element Address 
SA1 



X'36' 



1 

VADR 



7 0 



7 0 



7 

BR1309 



The floating-point value at the top stack location is truncated and converted to a binary 
indexing value. This indexing value is used to determine the virtual address of a single 
element in a one-dimensional arithmetic array. VADR is the virtual address of the 
descriptor (array dope vector) for this array. The indexing value at the top stack location 
is replaced by the virtual address of the referenced array element. 



Example: 
PMC Sequence 

STF VADR of Index Value 
-SA1 VADR of Array Descriptor 



Run-Time Stack 



Before 



After 



Y 


X 


Index 








Y 


X 


Addr 







Top of Stack 



Desc 



D1 


D2 


Size 


Base 







BR1310 
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Stack Matrix Array Element Address 
SA2 



X'38' 



— I 

VADR 
i 



7 0 



7 0 



BR1311 



The floating-point values at the second stack location and at the top stack location are 
truncated and converted to binary indexing values. Respectively, these two indexing 
values define row and column values required to determine the virtual address of a single 
element in a two-dimensional arithmetic array. VADR is the virtual address of the 
descriptor (array dope vector) for this array. The two indexing values at the top stack 
location are replaced by the virtual address of the referenced array element. 



Example: 
PMC Sequence 

STF VADR of Row Value 
STF VADR of Column Value 
-SA2 VADR of Array Descriptor 



Run-Time Stack 



Before 



After 



Y 


X 


Row 


Column 










Y 


X 


Addr 




Top of Stack 


- 





Desc 



D1 


D2 


Size 


Base 



Element Address = Base + ((Row-1) * D2 + Column) * Element Length, where D2 is the array 
column dimension and element length is precision dependent. 
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Stack Character Array Element Address 

SB1 



X'3A' 



VADR 



7 0 



7 0 7 
BR1313 



The floating-point value at the top stack location is truncated and converted to a binary 
indexing value. This indexing value is used to determine the virtual address of a single 
field in a character array. VADR is the virtual address of the descriptor (array dope 
vector) for this array. The indexing value at the top stack location is replaced by the 
virtual address of the field referenced in the character array. 



Example: 
PMC Sequence 



Run-Time Stack 



STF VADR of Index Value Before 
>-SB1 VADR of Array Descriptor 

After 



Desc 



Y 


X 


Index 










1 


Y 


X 


Addr 




/ Top of Stack — 



Base 



Base + (Index * 19) = Addr, where 19 is the length of a character field. 
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Stack Execution Control Code 
STX 



X'3C 



XX 



0 7 0 7 

BR1315 

The execution control code in byte 2 (XX) is moved to the top stack location. 



Example: 
PMC Sequence 

>-STX XX 



Run-Time Stack 



Before 


Y 












After 


Y 


XX 




Top of Stack 



BR1316 
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Compute Stacked Address 

CSA 



X'3E' 



NN 



0 7 0 7 

BR1317 

The floating-point value at the top stack location is truncated and converted to a binary 
index value. This index value references a virtual address previously placed in the stack 
(i.e., if the index value is I, the (NN+2— I)th stack entry is referenced). If the index value 
is in the range 1 through NN, the referenced virtual address is selected. If the index value 
is outside the range 1 through NN, the virtual address at stack location NN+2 is selected. 
The binary index value, at the top of the stack, and the series of virtual addresses, in 
stack locations 2 through NN+2, are deleted from the stack and the selected virtual 
address is placed at the top stack location. 



Example: 

BASIC Statements 

0100 GOTO 200,300,400 ON A 



0110 



0200 



0300 



0400 



Run-Time Stack 



PMC Sequence 


STH 


0100 


STA 


VADR of 0110 


STA . 


VADR of 0200 


STA 


VADR of 0300 


STA 


VADR of 0400 


STF 


VADR of A 


CSA 


03 


*BRS 






STH 


0110-* 



STH 0200- 



STH 0300-*- 



STH 0400-«- 



* Branch depends on value of A. 



Locations - 



NN+2 NN+1 

\ \ 



Top 
\ 



Before X 


0110 


0200 


0300 


0400 


A 




(VADR) 


(VADR) 


(VADR) 


(VADR) 




After X 


VADR 










Top of Stack 











For example, if A = 2, VADR = VADR 0300; if A = 99, VADR = VADR 01 10. 
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Miscellaneous Operations 

Supervisor Call 
SVC 

X'02' 
0 7 

BR1319 

Thispseudo instruction: 

1. Closes all activated external data files (those that were activated by an ADF 
instruction, but not closed by a CLS instruction). 

2. Writes all modified pages in the core paging area back to virtual memory. 

3. Resets the execution mode indicator in the system communication area. 

4. Causes the interpreter to pass control to the system control program (#GUFUD), 
via SCARPL in the system nucleus. 

This pseudo instruction marks the termination of the System/3 BASIC user-program 
execution. 



Halt Execution 

HLT 

X'04' 
0 7 

BR1320 

This instruction initiates a program-requested interruption. Execution of the System/3 
BASIC program is halted and control is passed to $PAUSD in the system nucleus, placing 
the interpreter program in the execution pause state. If the interpreter program is 
resumed, execution continues with the next sequential pseudo instruction following the 
HLT. 



Statement Header 
STH 



X'64' 



I 

Line 
i 



7 0 



7 0 7 
BR1321 



With the exception of the image (:) statement, the pseudo instruction sequence for each 
translated BASIC statement begins with an STH instruction. The compiler distributor 
(BHDIST) generates the STH pseudo instruction in virtual memory, preceding any 
pseudo machine code generated specifically for statement execution. 

Execution is interrupted if an interrupt condition is in effect or if execution is in 
STEP mode. The STH instruction identifies the beginning of a statement and its line 
number reference. "Line" contains the binary line number reference. 

The STH pseudo instruction performs no logical operation and makes no modifications 
to either the run-time stack or the contents of virtual memory. Control is passed to the 
next sequential pseudo instruction. 
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Image Statement Header (:) 

IMH 



X'66' 



Line 
i 



7 0 



7 0 



BR1322 



The pseudo instruction sequence, for each translated image (:) statement, begins with 
an IMH instruction. 

Execution of the IMH pseudo instruction is identical to that of the STH pseudo 
instruction with this exception— when the pseudo instruction executed immediately 
preceding the IMH instruction is a BNX instruction, the IMH instruction becomes a 



no-op. 



The IMH instruction performs no logical operation and makes no modifications to 
either the run-time stack or the contents of virtual memory. Control is passed to the 
next sequential pseudo instruction. 



End of Page 

EOP 

X'68' 
0 7 

BR1323 

Each pseudo machine code virtual page is terminated with at least one EOP instruction. 
EOP execution results in control being passed to the first pseudo instruction that appears 
in the next sequential virtual page. 

When more than one EOP terminates a page, only the first is executed. (Only the first 
is displayed in a maintenance utility dump of virtual memory.) The contents of the run- 
time stack are not affected by the execution of this instruction. 

Example: 

PMC Sequence 



-EOP ■ 
EOP 



-Page Boundary 



BR1324 
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Nonexecutable Operations 



Define Constant Address 
DCA 



X'6A' 



VADR 



7 0 



7 0 7 
BR1325 



The single arithmetic element or character field at VADR is defined as a data element in 
the internal data file. The position of the element in the file is directly related to the 
position of the DCA instruction with respect to other DCA instructions. 

All DCA pseudo instruction sequences are chained together by DDL pseudo instruc- 
tions to form the internal data file. Refer to "Define Data Linkage" (DDL) for an 
example. 

All sequences of DCA and DDL pseudo instructions have a BRA (branch unconditional) 
preceding them to bypass these nonexecutable instructions. 



Licensed Material-Property of IBM 



Program Organization 3-263 



Define Data Linkage 
DDL 



X'6C 



— I — 

VADR 



7 0 



7 0 7 
BR1326 



The DDL pseudo instruction always follows a string of one or more DCA pseudo instruc- 
tions. VADR is the virtual address that provides the linkage to the next sequential DCA 
instruction in the internal data file chain. A DDL instruction, with a VADR containing 
X'0000', marks the end of the internal data file. 

All sequences of DCA and DDL pseudo instructions have a BRA (branch unconditional) 
preceding them to bypass these nonexecutable instructions. 

Example Using DCA and DDL Pseudo Instructions: 



Basic Statements 
0100 DATA 1,2,3 



0110 DATA 4, 5 



PMC Sequence 
STH 0100 
• BRA VADR of 0110 
DCA VADR of 1 V*— 
DCA VADR i 
DCA VADR of 3< 



Internal Data File Pointer 



0120 



0200 DATA 6 

(last data statement) 



0210 



DDL VADR of Next DCA - 
-^STH 0110 
— BRA VADR of 0120 

DCA VADR of 4- 

DCA VADF 



)R of 4*y 
)R of 5<£ 



DDL VADR of Next DCA- 
-STH 0120 



STH 0200 

BRA VADR of 0210 

DCA VADR of 6-7 ^ 

DDL 0000 

-STH 0210 



-End of Internal Data File 
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Define Work Area 

DWA 



X'6E' 



NN 



0 7 0 7 

BR1328 

NN is equal to the number (in binary) of bytes in the work area. The work area initially 
contains binary O's. 

The DWA pseudo instructions are preceded by either a NXT or a BRA (branch uncon- 
ditional) instruction. Either of these instructions provides insurance that the DWA can- 
not be executed. 

Example: 
PMC Sequence 

BRA VADR 
-DWA 09 

oooolooooloooolooooloo 



BR1329 

End of Program 

EOF 

X'70' 
0 7 

BR1330 

The EOF instruction marks the end of the functional pseudo instructions. This instruc- 
tion is not executed. This is the last instruction generated for a System/3 BASIC user 
program with the exception of EOP pseudo instructions which are padded to the end of 
the page. (These EOP instructions are not displayed by the maintenance utility VM dump.) 
The EOF pseudo instruction is always preceded by a SVC pseudo instruction. The SVC 
ensures that the EOF cannot be executed. This sequence is always generated. 

Example: 
PMC Sequence 

SVC 
>-EOF 
EOP 
EOP 

EOP 

- Page Boundary 

BR1331 
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FLOATING-POINT ARITHMETIC 



Floating-point arithmetic automatically maintains decimal point placements (scaling) 
during computations in which the range of values used varies widely or is unpredictable 
(Figure 3-171). 

The key to floating-point data representation is the separation of the significant digits 
of a number from the size (scale) of the number. Thus, the number is expressed as a 
fraction times a power of 10. A floating-point number has two associated sets of values. 
One set represents the significant digits of the number and is called the fraction. The 
second set specifies the power (exponent) to which 10 is raised and indicates the loca- 
tion of the decimal point in the number. 

These two numbers (the fraction and exponent) are recorded in a single field. Since 
each of these two numbers is signed, some method must be employed to express two 
signs in the field. A negative fraction is indicated by the presence of a sign bit in the field. 
The sign of the exponent is expressed in excess 128 arithmetic; that is, the exponent is 
added as a signed number of 128. The resulting number is called the characteristic. Since 
the decimal range of the exponent is -98 through 0 to +99, the range of the charac- 
teristic is 30 to 2271 (X'lE' to X'E 3 '). (Refer to Figure 3-172 to convert characteristics 
to exponents, or the reverse.) 

The number is always normalized to provide a fraction with the greatest possible pre- 
cision. The number is normalized when the decimal point is immediately to the left of 
the first significant digit. The exponent is raised or lowered until the decimal point is 
positioned. (Example: 1234.56 is normalized to a fraction of 0.123456 with an exponent 
oflO 4 .) 

Floating-point data is recorded in either standard (short) or long precision. Standard 
precision provides for 7 significant digits and long precision provides for 15. The signifi- 
cant digits, when represented in packed-decimal format, occupy a five-byte field for 
standard precision. The field is extended to nine bytes for long precision. Refer to 
Figure 3-173 for the format of these fields. Arithmetic unpacked-decimal format is 
shown on Figure 3-174. 

Conversion Example: Convert a s-tandard-precision, packed-decimal, floating-point value 
(1 1 1 23 00 00 1 7E) to an unnormalized decimal number: 

1 . Disregarding the first half-byte and the last byte, the packed-decimal, normalized 
fraction is 0.1230000. 

2. The exponent is developed from the characteristic (last byte): 

Characteristic - Base = Exponent 
X'7E' = 126- 128 = -2 

3. Bit 3 of the first half-byte indicates that the fraction is negative: -0.1230000. 

4. The normalized decimal number in floating-point notation is therefore 
-0.1230000 xlO" 2 . 

5. The unnormalized decimal number is -0.00123. 
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Number 


Normalized Value 


Internal Floating-Point 


12.345 


0.1234500 


x 10^ 


0 


1 


23 45 


00 


82 


-12.345 


-0.1234500 


9 

x 10^ 


1 


1 


23 45 


00 


82 


1 2.345 x 1(T U 


0.1234500 


x10 22 


0 


1 


23 45 


00 


96 


12.345 x 10~ 20 


0.1234500 


1 Q 

x10" 18 


0 


1 


23 45 


00 


6E 


12.345 x 10 96 


0.1234500 


x10 98 


0 


1 


23 45 


00 


E2 


1.2345 x 10"" 


0.1234500 


x 10~ 98 


0 


1 


23 45 


00 


1E 


0.00005 


0.5000000 


A 

x 10 


0 


5 


00 00 


00 


7C 


0.5 


0.5000000 


x10° 


0 


5 


00 00 


00 


80 


5000 


0.5000000 


x 10 4 


0 


5 


00 00 


00 


84 


0 


*0.0000000 


x 10" 98 


0 


0 


00 00 


00 


1E 


12.3456789012345 


0.123456789012345 


2 

x 10 z 


2 


1 


23 45 


67 89 01 23 45 


82 


*Special form used to display a standard-precision, packed, floating-point zero. 
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Figure 3-171. Floating-Point Numbers, Example 



X'85' 
— I L_ 





0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


1_ 






Hexadecimal value 


is oul 


side valid exponent limits. 










-98 


-97 


2_ 


-96 


-95 


-94 


-93 


-92 


-91 


-90 


-89 


-88 


-87 


-86 


-85 


-84 


-83 


-82 


-81 


3_ 


-80 


-79 


-78 


-77 


-76 


-75 


-74 


-73 


-72 


-71 


-70 


-69 


-68 


-67 


-66 


-65 


4_ 


-64 


-63 


-62 


-61 


-60 


-59 


-58 


-57 


-56 


-55 


-54 


-53 


-52 


-51 


-50 


-49 


5_ 


-48 


-47 


-46 


-45 


-44 


-43 


-42 


-41 


-40 


-39 


-38 


-37 


-36 


-35 


-34 


-33 


6_ 


-32 


-31 


-30 


-29 


-28 


-27 


-26 


-25 


-24 


-23 


-22 


-21 


-20 


-19 


-18 


-17 


7_ 


-16 


-15 


-14 


-13 


-12 


-11 


-10 


-9 


-8 


-7 


-6 


-5 


-4 


-3 


-2 


-1 


8_ 


0 


1: 


2 


3 


4 


5~ 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


9_ 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


A_ 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 


42 


43 


44 


45 


46 


47 


B 


48 


49 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


63 


C_ 


64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


D_ 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


E_ 


96 


97 


98 


99 




Hexadecimal 


value exceeds 


exponent limits. 
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Figure 3-172. Exponent Conversions (Internal Format to Decimal) 
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Long-Precision, Packed-Decimal, Floating-Point 
Element (9 bytes) 




3 


4 


5 


6 


7 


8 


9 


Sta- 
tus 


1 5-Packed-Decimal Digits 


Charac- 
teristic 




Short-Precision, Packed-Decimal, Floating-Point 
Element (5 bytes) 


1 2 | 3 4 


5 


Sta- 
tus 


7 Packed-Decimal Digits 


Charac- 
teristic 



Status Half-Byte 


0 


1 


2 


3 


Trace 


Type 


Precision 


Sign 



O-Positive Fraction 
1-Negative Fraction 

0- Standard (short) Precision 

1- Long Precision 

■ O-Arithmetic Floating-Point Element 
• 1-Character Field (refer to Figure 3-110) 
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Figure 3-173. Arithmetic Packed-Decimal Format 



Long-Precision, Unpacked-Decimal, Floating-Point Field (16 bytes) 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 




15 Unpacked-Decimal Digits (signed) 



■ Characteristic 



Short-Precision, Unpacked-Decimal, 
Floating-Point Field (8 bytes) 



7 Unpacked-Decimal Digits (signed) 



< Characteristic 



Note: 

1 . The zone bits, of the last significant digit, indicate the sign of an unpacked- 
decimal field; F - positive, D = negative. 

2. Refer to "Floating-Point Arithmetic" to determine the exponent from the 
characteristic. 



Figure 3-174. Arithmetic Unpacked-Decimal Format 
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DESK CALCULATOR-DCALC (Figure 3-179) 



The first phase of DCALC is called by the command analyzer (#ECMAN) after command 
key 01 is pressed by the operator. DCALC processes operator commands from the key- 
board, one command at a time, until the operator transfers control to #GUFUD via 
INQUIRY REQUEST (INQ REQ). The concepts of virtual memory and paging are the 
same for DCALC as for the interpreter. Many of the subroutines used by DCALC 
(including the paging subroutine, IPGMDL) are identical to those used in the interpreter. 

DCALC Cycle 

1. DCALC accepts input from the keyboard (command keys, function keys, and 
data keys). 

2. The operator command is interpreted and/or syntax checked. 

3. Core-resident and virtual-memory-resident subroutines are called to execute the 
operator's command. 

4. Steps 1 through 3 are performed until DCALC is terminated (INQ REQ). 

Organization of Assembly Listings 

All modules of the desk calculator are contained in these six assembly listings: 

1 . DCALC loader-#VLOAD 

2. Core-resident routines— #VODKA 

3. Virtual-memory-resident subroutines— #VVMRS 

4. Virtual-memory-resident subroutines and procedures— ##VUFA 

5. CRT physical IOCS-#VCRTI 

6. DCALC terminator-#VXITI 

Core Resident Routines-#VODKA 

#VODKA resides in the system program file and is loaded to core at X'0600' immedi- 
ately following the system nucleus. #VLO AD copies #WMRS to virtual memory prior 
to loading #VODKA. The assembly listing of #VODKA contains the following modules 
arranged in this physical order: 

VSVARA— Save areas and push-down (PM) registers 
VOTCON-Convert floating point to output 
FDIADD/FDISUB— Floating point add/subtract (long precision) 
FZIMPY— Floating point multiply (long precision) 
FFIDVD— Floating point divide (long precision) 
VODKAL-DCALC monitor (control module) 
VODIPT-Alpha input table 
VENABL-Return next input character 
VENDTB-Data key character table 
VOUTPT-Output control routine 
VSYNTX-Control computation routine 
VCONVT -Convert input to floating point (long precision) 
TVAREG-Addressable (AM) registers 

DPRINT— Matrix printer physical IOCS (actual I/O) (refer to "Conversational I/O 

Routines-#DPRIN") 
DVPRSC-Keyboard physical IOCS (actual I/O) 
IPGMDL-Paging subroutine (refer to "Paging Subroutine-IPGMDL") 
VINITI-DCALC initialization 



) 
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VirtuahMemory-Resident Subrou tines- #VVMRS and ##VUFA 

These components of the desk calculator are copied from the system program file to the 
first 72 sectors of virtual memory, by the DCALC loader (#VLOAD). Individual pages 
are read into the core paging area and executed under control of the paging subroutine 
(IPGMDL). ##VUFA starts at virtual address X'3200\ #VVMRS and ##VUFA contain 
subroutines and data areas to perform the functions listed in Figure 3-175. 



Virtual 

AHHrp«;«; 
nuui ess 


Disk 

r^UUI COO 


Symbolic 
Label 


Input 

i ii 1 1 la i iu 


Synopsis 


0000 


0700 


VERROR 




Error message routine. 


0100 


0704 


VPRINT 


PRINT 


Print AM and PM registers. 


01 B0 


0704 


VPRTBL 




Core addresses and virtual addresses 
for AM and PM registers. 


0200 


0708 


VPRBAA 




Virtual memory buffers for all AM and 
PM registers. 


0500 


0714 


VPOINT 


POINT 


Change decimal point location. 


0600 


0718 


VNWDEF 


PROC 


Define a new procedure. 


0661 


0718 


VNWCRD 


CARD 


Read a procedure from the data 
recorder. 


068 D 


0718 


VDELET 


(01) 


Delete a procedure. 


0700 


071 C 


VNDPRC 


END 


End a procedure. 


0800 


0720 


VREADI 


CARD 


Read a procedure from the data 
recorder. 


0900 


0724 


VRUNIT 


(PROG 
START) 


Execute a procedure. 


090D 


0724 


VRUEXC 


EXEC 


List a procedure as it is executed. 


0920 


0724 


VRULST 


LIST 


List procedure steps without execution. 


0A00 


0728 


VPLIST 




List procedure input buffer. 


0A8C 


0728 


VPUNCH 


PUNCH 


Punch a procedure on data recorder. 


nn An 
UdMU 




\/PI IRI 1 P 
vrUbUr 




Virtual memory buffer for punch 
output. 


ocoo 


0730 


VSFONE 


SF1 


Perform statistical function 1 . 


0C06 


0730 


VSFTWO 


SF2 


Perform statistical function 2. 


1100 


0744 


VSFT01 




Text messages for SF1 and SF2. 


1200 


0748 


*FKLLGT 


LTW 


Log base 10. 


120B 


0748 


*FKLLTW 


LGT 


Log base 2. 


1219 


0748 


*FKLLOG 


LOG 


Log base e. 


1470 


0750 


*CENXZD 




Convert exponent to zoned decimal. 


MAD 


0750 


*CCZDFP 




Convert zoned decimal to long-precision 
floating-point. 


1500 


0754 


*FGLEXP 


EXP 


Exponentiate. 


1800 


0780 


*FNBPWR 


EXP 


Floating-point exponentiate. 


1900 


0784 


*FRBSQR 


SQR 


Square root. 


1A00 


0788 


*FSBCOS 


COS 


Cosine. 


1A1A 


0788 


*FSBSIN 


SIN 


Sine. 


1D00 


0794 


*FQLRND 


RND 


Random number generator. 


1E70 


0798 


*CBFPZD 




Convert floating point to zoned decimal. 


1EB2 


0798 


*CDBNZD 




Convert binary number to zoned 
decimal. 
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Figure 3-175. Contents of Virtual Memory (DCALC) (Part 1 of 2) 
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Virtual 
Address 


Disk 
Address 


Symbolic 
Label 


Input 
Command 


Sy n o p s i s 


1 Fnn 
i ruu 


079C 


*FTLSEC 


SEC 


Secant. 


1 F?^ 


079C 


*FTLCSC 


CSC 


Cosecant. 


1 F61 


079C 


*FJBINT 


INT 


Integer. 


1 FQP 


079C 


*FPBRAD 


RAD 


Convert degrees to radians. j 


1 F A R 
I rAD 


c\iqc 


*FPBDEG 


DEG 


Convert radians to degrees. 


1 rib 


u/yu 




ABS 


Absolute value. 


i ruu 


079C 


*FURSGN 


SGN 


Sign. 




07A0 


*FWLCOT 


COT 


Cotangent. 


9D9R 
zuzo 


07 AO 


*FWLTAN 


TAN 


Tangent. 


94D0 


07 BO 


*DFRDIN 


READ 


Card reader physical IOCS (actual I/O). 


2496 


07B0 


*DFCOUT 


PUNCH 


Card punch physical IOCS (actual I/O). 


2500 


07B4 


*FHLHCS 


HCS 


Hyperbolic cosine. 


9RR7 


07B4 


*FHLHSN 


HSN 


Hyperbolic sine. 


9RQ1 

ZD3<J 


07B4 


*FHLHTN 


HTN 


Hyperbolic tangent. 


2700 


07BC 


*FFBLATN 


ATN 


Arctangent. 


2A00 


07C8 


*FCLACS 


ACS 


Arccosine. 


2A13 


07C8 


*FCLASN 


ASN 


Arcsine. 


2B00 


07CC 






Not used by DCALC (5 pages). 


3000 


0701 


V@VEXT 




DCALC terminator (#VXITI). 


3200 


0709 


VSATBL 




Procedure address table. 


3228 


0709 


VSARCH 




Returns the virtual address of a 
procedure. 


3300 


070D 


VSAWRT 


ING REQ 


Write back modified VM pages and 
load DCALC terminator (#VXITI). 


3400 


0711 


VSAPRQ+1 




Procedures Q through Z (2 pages per 

nmrorA ( i rp 9f1 npnp<; total) 


4800 


0781 


V@VOVL 




Three sectors of saved core starting at 
label FDIADD in #VODKA. 


4B00 


078 D 






The remainder of virtual memory is 
not used by DCALC. 
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Figure 3-175. Contents of Virtual Memory (DCALC) (Part 2 of 2) 

The following list contains explanations of the column entries in Figure 3-175: 

1 . "Virtual Address" is the virtual address entry point to perform the function or 
the virtual address of a data area or table. 

2. "Disk Address" is the disk address of the virtual memory page containing the 
entry point. 

3. "Symbolic Label" is the symbolic name of the entry point in the assembly listing 
of #VVMRS. An * indicates that' the subroutine is identical to a subroutine in 
#FMLNG (interpreter), both having the same symbolic name. 

4. "Input Command" is the user command associated with the execution of that 
subroutine. Parentheses indicate a keyboard function or command key (example: 
(PROG START) or (01)). 
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DCALC lnitialization-#VLOAD and VINITI 

#VLOAD is the first phase of the desk calculator to be loaded into core. This phase 
copies #VVMRS, #VXITI, and ##VUFA to virtual memory from the system program 
file, and then loads the mainline phase of the desk calculator (#VODKA) to core, 
#VODKA overlays #VLOAD. (Refer to Figure 3-176.) 



Core 



0000 

0600 
07F7 



1800 



2000 



System Nucleus 



\ #VLOAD 



(saved core) 



##ERMS 

(error message text) 



#VODKA 
(DCALC monitor) 



VINITI 




"Core Paging Area ' 



#VCRTI 

(CRT physical IOCS) 



Virtual Memory 



#VVMRS 



#VXITI and ##VUFA^ 
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Figure 3-176. DCALC Core and VM Map (with CRT) 
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The first executable instruction in #VODKA is a branch to VINITI. This initialization 
routine (VINITI) writes a three-sector area of the core-resident desk calculator to virtual 
memory. These three sectors are used for error message text blocks (##ERMS) during 
DCALC error message processing (in routine VERROR). After error message processing, 
the area is restored from virtual memory. VINITI also loads #VCRTI (CRT physical 
IOCS and CRT buffer) to high core, if a CRT device is configured. VINITI initializes the 
core paging area to a size of eight pages (starts at X'1800'). 

Initialization of the desk calculator is complete when VINITI branches to the label 
VODONE, in #VODKA. 
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DCALC Error Messages-VERROR 

VERROR is a pageable subroutine in virtual memory (#VVMRS). This page is called to 
display error messages to the operator. VERROR reads the first two sectors of ##ERMS 
from the system program file into core, overlaying part of the core-resident desk calcula- 
tor (#VODKA). These two sectors contain an index to the message text within ##ERMS. 
The error code (VERERC) is used as a search argument against the index. The entry that 
is located contains the relative disk address of the message text within ##ERMS. The 
message text is read from the system program file, overlaying the index. 

The message is displayed on the matrix printer by DPRINT. The core area, used as a 
buffer for the index and message text blocks, is restored from virtual memory. An image 
of the core-resident code normally occupying this area was written to virtual memory 
during DCALC initialization. 

Label Trace for ENTER+ Function 

The following labels trace the execution of the ENTER+ function key. This function 
places' the numeric value just entered, into PM1. The numeric value is converted to a 
long-precision, unpacked-decimal, floating-point field. This trace illustrates a func- 
tion executed entirely by core-resident routines. 

1 . VODONE— This label is the normal return point after the execution of each 
function. 

2. VODOSO-Branch to VENABL and set up return linkage. 

3. VENABL— Get a single input character from the keyboard. 

4. VEN200-Branch to DVPRSC for keyboard physical I/O. 

5. DVPRSC-Read one input character from the keyboard and perform error checks. 

6. VENRET-Return from keyboard IOCS; input was the ENTER+ function key. 

7. VOD060-Check type of input character. 

8. VOD1 10-Character is ENTER+. Branch to VSYNTX to perform syntax check. 
Calculation is desired. 

9. VOD1 10+10-Branch to VODPSH. 

10. VODPSH-Push downPM registers 1 through 9. 

1 1 . VOD 1 1 0+1 4-Jump to VOD840. 

12. VOD840-If no error, branch to VOD890. 

13. VOD890-Branch to VOUTPT for output. 

14. VOD060— Check type of input character. 

15. VOU300-Branch to VSPRNT (interface to DPRINT and/or #VCRTI) to tab 
(space carrier and/or cursor). 

16. VOU300+ 1 8-Branch to VOTCON to convert the contents of PM 1 to printable 
format. 

17. VOU300+25-Branch to VODPRT (interface to DPRINT and/or #VCRTI) to 
print PM1. 

18. VOU802-Return to DCALC monitor. 

19. VOD900-Return to VODONE to process the next operator input. 
Label Trace for SIN Function 

The following labels trace the execution of the SIN function. This trace illustrates a 
function that requires paging of subroutines from virtual memory. Those labels marked 
with an (*) are located in virtual memory subroutines (#VVMRS). Those that are 
unmarked are located in the core-resident desk calculator (#VODKA). 

1 . VODONE-This label is the normal return point after execution of each function. 

2. VODOSO-Branch to VENABL. 

3. VENABL-Get a single input character from the keyboard. 
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4. VEN200-Branch to DVPRSC for keyboard physical I/O. 

5. DVPRSC— Read one input character from the keyboard and perform error checks. 

6. m VENRET-Return from keyboard IOCS; input was the S data key. 

7. ' VEN290-Move the first character into the input buffer at label VSVIPC. 

8. VOD060-Check type of input character. 

9. VOD300— S is an allowable first input data character. 

10. VOD310-Call VENABL to get the second input character. Move it to the input 
buffer at label VSVIP2. 

1 1 . VOD330-Call VENABL to get the third input character. Move it to the input 
buffer at label VSVIP3. Now the input buffer contains SIN. 

12. VOD340-Search the alpha input table (VODIPT) for the SIN entry and branch to 
the core address in the entry located. 

13. VOD600-Save the virtual address of the SIN function subroutine from the alpha 
input table. Branch to the paging subroutine (IPGCAL). The parameter following 
the branch instruction is the virtual entry point in the required virtual-memory 
pageCX'lAlA'). 

14. IPGCAL— Read and lock page X'lF* into the core paging area. This page contains 
the execution subroutine FPBRAD. 

15. *FPBRAD-Convert the contents of PM1 from degrees to radians. 

16. *FPB600-Branch to the paging subroutine. I$RTRN is equated to IPGRTN. 

17. IPGRTN-Unlock page X'lF' and return to the DCALC monitor at label 
VOD600+18. 

18. VOD660— Branch to the paging subroutine (IPGCAL). The parameter following 
the branch contains the virtual entry point to the SIN function subroutine. This 
address was saved previously at label VOD600. 

19. IPGCAL— Read and lock page X'lA* (FSBSIN). 

20. *FSBSIN-Compute the sine of the value in PM1 and place the result in PM1. 
Branch to the paging subroutine (I$RTRN). 

21 . IPGRTN-Unlock page X'lA' and return to the DCALC monitor at label 
VOD680+1. 

22. VOD840-If no error, branch to VOD890. 

23. VOD890-Branch to VOUTPT for output. 

24. VOUTPT-Request is to print PM 1 . 

25 . VOU300-Branch to VSPRNT (interface to DPRINT and/or #VCRTI) to tab 
(space carrier and/or cursor). 

26. VOU300+18-Branch to VOTCON to convert the contents of PM1 to printable 
format. 

27. VOU300+25-Branch to VODPRT (interface to DPRINT and/or #VCRTI) to 
print PM1. 

28. VOU802-Return to DCALC monitor. 

29. VOD900-Return to VODONE to process the next operator input. 
Keyboard Physical IOCS-DVPRSC (Figure 3-177) 

DVPRSC is called when input of one key (function, command, or data) is to be read 
from the keyboard. The keyboard is enabled and this routine waits for a key to be 
pressed by the operator. 

When the operator presses a key, the data is sensed and then passed to the calling 
routine. INQ REQ and hard parity errors return to VENEXT. All other keys return to 
VENRET with the sensed data at label VENKEY. If a typamatic key is pressed, DVPRSC 
waits until the key is released before branching to VENRET. 

The keyboard is locked and enabled on INQ REQ. For all other keys, the keyboard is 
unlocked and disabled. 
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^ DVPRSC 



Set interrupt 

address 

to DVPIRP. 
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Figure 3-177. Keyboard Physical IOCS (DVPRSC) Flowchart 



Program Organization 3-275 

Licensed Material-Property of IBM 



CRT Physical IOCS-#VCRTI 

This program handles all output on the CRT. It is loaded to high core only if the CRT is 
configured on the system. The CRT output buffer (in the assembly listing of #VCRTI) 
contains the initial formatted output for the standard DCALC CRT display. 

Changes in the display are moved to the output buffer by #VCRTI. Physical I/O and 
error recovery procedures on the CRT are accomplished by this program. 

DCALC Termination-VSAWRT, #VXITI 

VSAWRT is a pageable subroutine in virtual memory (##VUFA). This page is called when 
the operator depresses INQ REQ. VSAWRT writes back all modified pages from the core 
paging area to virtual memory (these pages may contain modifications to procedures). 
VSAWRT loads, via $BLOAD in the system nucleus, #VXITI and ##VUFA (procedures) 
from virtual memory. 

#VXITI writes back all procedures (##VUFA) to the system program file before 
returning, via $CAIPL in the system nucleus, to BASIC mode of operation. This action 
reflects all modifications that the user may have made, to the procedures, on this activa- 
tion of the desk calculator. (Refer to Figure 3-178.) 



System Program File 
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Figure 3-178. DCALC Termination Core Map 
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^ ffVLOAD 
VLOADN 



LOAD #VODKA 



1 . Load virtual memory routines ($DISKN). 

2. Turn on command lights. 

3. Load saved procedures to VM($DISKN). 

4. Exit to $RLOAD to load $VODKA. 



) 



#VODKA 

VINITI 



INITIALIZATION (VINITI) 



1. Print header (DPRINT). 

2. Do one time initialization. 

3. Load #VCRTI if applicable <$LOADR). 

4. Initialize paging module. 



) 



VODONE 
ENABLE INPUT 



1. Call VENABL to return input character. 



Input 
Character 



Other 



Terminal 



Invalid 



VSAWRT 





PERFORM FUNCTION 




ERROR PROCESS 




1. Call VSYNTX to return if cal- 
culation desired. 

2. Call routine to perform calcu- 
lation. 

3. Call VOUTPT to output result. 




1. Call VERROR to output error 
message. 








I 







Inquiry 
Request 



EXIT ROUTINE 



1. Call IPGMPLto write out 
modified pages. 

2. Load $VXITI($BLOAD). 




EXIT#VODKA 



1 . Save procedures on disk 
<$DISKN). 

2. Turn off command lights. 

3. Reset CRT screen if applicable. 

4. Exit to $CAIPL. 



I 



#GUFUD 
Figure 3-22 
Via $CAIPL 
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Figure 3-179. Desk Calculator (#VLOAD, #VODKA, #VXITI) Flowchart 
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Section 4. Directory 



DIRECTORY LIST 



This section contains: 

• Directory list 

• Source module labeling conventions 

• System equates 



The directory is a listing of all components, for quick reference to System/3 BASIC 
assembly listings on microfiche. The names appear in this directory in the order in which 
they appear in ##DRTY-system program file directory. This section also contains systen: 
equates, and gives the general contents of each equate assembly listing. 
The directory list contains the following columns: 

• Component Name. The symbolic label used to identify an assembly listing. This name 
appears on the microfiche and in the heading of each page in the assembly listing. 

• Descriptive Component Name. This name identifies the component in Section 3. 

• Synopsis. A brief summary of the main functions performed by a program. For com- 
ponents other than programs, the synopsis is a brief summary of the contents of the 
component. 



Component Descriptive Component Name 
Name 



Synopsis 



##0TRK Cylinder 0, track 0 



##1TRK Cylinder 0, track 1 



Contains the IPL bootstrap loader (MLOADS); initial 
information for track 0. 

Contains the system nucleus; initial information for 
track 1 . 



##DRTY System program file directory 



Contains a list of all components in System/3 BASIC. 
Defines the relative disk address and sector count of the 
component, the core load address, and the program ID 
number. 



#INSTD Core-resident routines {standard-precision 

interpreter) 



Core-resident routines direct the execution of pseudo 
machine code (PMC) instructions in standard precision. 



#SPSYN 



Procedure line checker 



#BCOMP System/3 BASIC language compiler 



#LOADR Loader 



Formats procedure lines for insertion into the work 
file. 

Compiles the source program into PMC instructions and 
constants. 

Completes the preparation of virtual memory for the 
execution of PMC instructions. 



#DPRIN Conversational I/O routines 



Provides actual I/O for the matrix printer and keyboard 
while in conversational mode. 
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Component Descriptive Component Name 
Name 

#KGOSL GO keyword program 

#KEDIT EDIT keyword program 

#KEIMAB ENABLE/DISABLE keyword program 

#DREAD Card reader I/O routine 

#KMOUN MOUNT keyword program 

#KRMOV REMOVE keyword program 

#KPASW PASSWORD keyword program 

#KEXTR EXTRACT keyword program 

#DPSLY CRT I/O routine 

#TSY KT System keyboard tables 

#KRNUM RENUMBER keyword program 

#KROVL RENUMBER keyword program overlay 

#KOVME MERGE keyword program overlay 

ff'KVvRiT WRITE keyword program 

#KREAD READ keyword program 

#KWI DT WIDTH keyword program 

#KRUNI RUN/STEP/TRACE keyword program 

#KDNTE ENTER keyword program 

#KMERG MERGE keyword program 

#TDCKT Desk calculator keyboard tables 

#KDELE DELETE keyword program 

#KCTLO LISTCAT keyword program 

#KLIST LIST keyword program 

#KLOGO LOGON/OFF keyword program 

#KSAVE SAVE keyword program 



Synopsis 

Continues or aborts a program from a pause state. 

Edits a saved file to the system work file or prepares the 
work file for a new file entry. 

Enables or disables statements in the system work file. 

Provides actual I/O for input from the data recorder while 
in conversational mode. 

Updates the nucleus communications area when a disk 
volume is changed. 

Updates the nucleus communications area when a disk 
volume is removed. 

Changes the current password and the password directory 
to a new password. 

Saves specified line numbers on the system work file. 

Provides actual I/O for the CRT while in conversational 
mode. 

Keyboard character tables for various foreign languages. 
Renumbers statements in the system work file. 

See #KRNUM. 

Note: This overlay is assembled with #KOVME. 
See #KMERG. 

Note: This overlay is assembled with #KROVL. 
Changes the device assigned as the system printer. 
Changes the system input device. 
Changes the system printer margin values. 
Provides linkage to the System/3 BASIC compiler. 
Enters disk system management programs. 
Merges statements from a user file to the system work file. 
Keyboard tables for various foreign languages. 

Deletes statements from the system work file or saved 
files and passwords from the library. 

Displays information from the library directories. 

Displays the contents of the work file. 

Defines or cancels a user password. 

Stores the contents of the work file in the two-star library 
or a user library. 
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Component 
Name 

#SPACK 



#KSETI 



Descriptive Component Name 



Pack file library subroutine 



#SPOVL Second phase of #SPACK 

#KPOOL PULL/POOL keyword program 

#KCHAN CHANGE keyword program 

#KSVLA SAVE keyword program overlay 

#KSSPN SUSPEND keyword program 

#KNAME RENAME keyword program 

#KSYMB SYMBOLS keyword program 

#KPRTC PROTECT keyword program 



SET keyword program 



#GRAPR Procedure line fetch processor 

#KALLO ALLOCATE keyword program 

#KRLAB RELABEL keyword program 

#KRVLA RELABEL keyword program overlay 

#KDISP DISPLAY keyword program 

#KDOVR DISPLAY keyword program overlay 

#VCRT1 CRT physical IOCS for DCALC 

#EXMSG Program interruption processor 

##CORE Save area 

##ERMS Error messages 

#KHELP HELP keyword program 

#MIPPE Nucleus initialization program 

#KSOVR SET keyword program overlay 

#VXITI DCALC termination 



Synopsis 



Condenses the file library to place all null areas at end of 
the library. 

See #SPACK. 

Adds or deletes user files to or from the one-star library. 

Alters a statement in the system work file or statement 
containing the last syntax error. 

See #KSAVE. 

Saves a program that is currently in an execution pause 
state. 

Changes the filename of the work file or a user file. 

Displays variable names from the system work file. 

Sets or cancels user file, or one-star protection. Sets 
two-star protection. 

Assigns a value to a program variable while in a program 
execution pause state. 

Locates sequential procedure statements in the temporary 
procedure work area. 

Reserves space for user data files and defines the data files 
to be used during program execution. 

Changes variable names in the system work file. 

See #KRLAB. 

Displays the current values of program variables while in a 
program execution pause state or following a program 
termination {unless virtual memory is destroyed). 

See#KDISP. 

Provides DCALC with an interface to the CRT I/O routine 
in virtual memory. 

Displays a message to identify the type of program 
interruption. 

Disk area used to save core for pause mode. 

Contains the message number and text for system error 
messages. 

Displays help text. 

Initializes the system nucleus during the IPL procedure. 
See #KSETI. 

Provides exit linkage to return to BASIC mode of 
operation. 
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Component Descriptive Component Name 
Name 

##VUFA DCALC subroutines and procedures 

#VLOAD DCALC initialization 

#VODKA DCALC core-resident routines 

#TVKBT Unused 

#VVMRS DCALC VM-resident subroutines 

#FMSTD VM-resident execution subroutines 

#UEXLI EXPAND utility program 

#UALLO ASSIGN utility program 

| #KCNDI CONDITION keyword program 

##CSAV Suspended save area 

##SSAV Status save area 

##SAVM Save area 

#FISTD Interpreter execution overlay 

#F I LNG I nterpreter execution overlay 

##RSPG save area 

#BOVLY Statement processor overlays 

#SFSYN BASIC statement syntax checker 

#SFOVR Syntax checker 

I #STROV ' Third phase of BASIC statement syntax 

' checker 

##FSPG Save area 

#GUFUD Work file update/crusher 

#ERRPG Error message program 

##BLNB Bad line buffer 

#ECMAN Command analyzer 
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Synopsis 

Contains user procedure save areas and procedure control 
subroutines. Resides in virtual memory during DCALC 
mode of operation. 

Initializes and provides linkage to the desk calculator 
monitor. 

Controls execution of desk calculator operations. 



Contains subroutines that reside in virtual memory during 
DCALC mode of operation. 

Contains all standard precision execution subroutines that 
occupy the fixed area of virtual memory during the 
execution of a BASIC program. 

Changes the disk space allocated to a user library file. 

Allocates disk space for a LIBRARY or system work area. 

Displays the current status of the system. 

Disk area used to save suspended core. 

Disk area used to save the status of a suspended program. 

Virtual memory disk save area. 

Overlays the core-resident interpreter to perform matrix 
inversion or determinant in standard precision. 

Overlays the core-resident interpreter to perform matrix 
inversion or determinant in long precision. 

Start of cylinder 4, R1 area. 

Contains overlays to generate PMC sequences and to terminate 
the compiler. 

Checks the syntax of all System/3 BASIC language 
statements entered into the system. 

SeetfSFSYN. 

Checks operands of STR function. 
Start of cylinder 4, F1 area. 

Performs maintenance on the system work file and monitors 
system input while in conversational mode. 

Displays error messages. 

Used to store the input line buffer when the line is invalid. 
Its purpose is to free the input line buffer for input required 
to correct the bad line. 

Analyzes system commands and loads the program required 
to process that command. 
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Component Descriptive Component Name 
Name 

#SFLOA Interpreter execution overlay 

#SDSYN Data syntax checker 

#SFFIN Interpreter execution overlay 

#UPACK PACK utility program* 

#EFKEY Command key processor 

#UCNFI CONFIGURE utility program 

#UCPLI COPY file utility overlay 

#UATRC Alternate track utility program 

#UINIT Initialize disk utility program 

#UCDIS COPY volume utility program 

#UDELV VTOC delete utility program 

#UDISV VTOC display utility program 

#ZTRAC Program load trace overlay 

#ZDUMP Virtual memory dump overlay 

#ZLOAD Maintenance utility loader 

#ZUTMO Maintenance utility monitor 

#INLNG Long precision interpreter 

| #KCALL CALL keyword program 

0KRSUM RESUME keyword program 

#UPTFI PTF utility program 

#UPOVL PTF utility program overlay 

#FMLNG VM-resident execution subroutines 

##CNFI Configurator record 

#KLLAY LIST keyword program overlay 

#ZLBMA Library map overlay 



Synopsis 



Logical IOCS for disk data files. Transfers data items between 
saved files in the file library and I/O buffers allocated in 
virtual memory. 

Checks the syntax of all data entered into the system while 
in conversational mode. 

Find disk data file subroutine. Called to find a disk data file 
in the file library or to get space for a SCRATCH data file. 

Provides interface to the pack user library subroutine. See 
#SPACK. 

Processes command keys 01 through 1 1 . 

Creates or modifies the configuration record on disk. 

Copies the system program, user library, or help text files. 

Tests, assigns, and unassigns individual data tracks. 

Initializes a disk volume to the standard System/3 format. 

Copies the contents of a disk volume to another volume. 

Releases disk space by deleting files defined by labels in 
the VTOC. 

Displays VTOC file label information. 

When activated, traces all programs loaded by the system 
nucleus. 

Displays the pseudo instructions currently in virtual 
memory. 

Loads the maintenance utility monitor. 

Provides maintenance service aid functions. 

Core-resident routines. Directs the execution of pseudo 
machine code (PMC) instructions in long precision. 

Invokes a procedure file in the user library. 

Restores a suspended program to the execution pause state. 

Applies program temporary fixes to System/3 BASIC 
components. 

See RIPTFI. 

Contain all long-precision execution subroutines that 
occupy the fixed area of virtual memory during the 
execution of a BASIC program. 

Contains indicators for the hardware components with 
which BASIC is running. 

See #KLIST. 

Determines the library map option. 
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Component Descriptive Component Name 

Name 

#ZL1MA Library map option 1 overlay 

#ZL2MA Library map option 2 overlay 

#ZL3MA Library map option 3 overlay 

#ZLVRL Library map option 3 overlay 

#KKEYS KEYS keyword program 

##CKTB Command key table 

##INVD Save area 



##PWRK 



Procedure work area 



#TEQU1 



System equates 



#TEQU2 



System equates 



Synopsis 



Processes option 1 . 
Processes option 2. 
Processes option 3 (part 1). 
Processes option 3 (part 2). 

Lists, assigns, or restores command key functions. 

Table of functions assigned to command keys 1 to 1 1 . 

The matrix inverse and matrix determinant functions use 
this disk area. 

This disk work area is used when a procedure file is 
invoked. 

Assembled as an aid to resolving symbolic references in 
microfiche (part 1). 

Assembled as an aid to resolving symbolic references in 
microfiche (part 2). 
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SOURCE MODULE LABELING CONVENTIONS 



All labels within the same source module are prefixed by a character that identifies the 
) type of source module. The following list associates each character with the type of 

source module it identifies: 

B— Compiler 

C— Conversion subroutines 
D-I/O subroutines 
E-System control routines 
F— Virtual memory routines 
G— Work file processing 
I-Interpreter 
K— Keyword processing 
L— Loader 

M-Miscellaneous system routines 
N— System nucleus 

S— Data management or syntax routines 

T— Nonexecutable tables 

U-Utility processing 

V— Desk calculator 

Z— Maintenance utilities 

©—System equates 

$— System equates 



SYSTEM EQUATES 

The component parts of System/3 BASIC are assembled in the System/3 Basic Assembler 
Language. Modules composed of equates (EQU) are used for communication between 
the different component parts (assembly listings). These equate modules are referred to 
as system equates. These modules are assembled (as needed) with the component parts of 
the system. To reduce the size of listings and microfiche, the PRINT OFF, PRINT ON 
feature of the assembler is used. The value and references of equated labels that are not 
printed can be found in the cross-reference label list in the assembly listing. 

All system equate modules have been grouped into two assemblies, #TEQU1 and 
#TEQU2. All labels not printed at their point of resolution can be located in one of 
these listings. 

#TEQU1 

System and Hardware Equates-@SYSEQ 

Note: All labels in this module are prefixed by @. 

1. CPU equates: registers, instruction lengths and displacements, branch condition 
codes, miscellaneous constants, and masks. 

2. Disk parameter list (DPL) and print parameter list (PPL) equates. 

3. System work file equates: segment header displacements and masks, and file index 
table (FIT) displacements and lengths. 



) 
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System Hardware I/O E qua tes—@HD WE Q 
Note: All labels in this module are prefixed by @. 

1. Disk equates; disk control field (DCF), disk I/O instructions, condition codes, 
device addresses, track flag byte, nucleus communications area error history log 
entries, and sense bytes. 

2. Matrix printer equates. 

3. Keyboard equates: mask values and command keys. 

4. CRT equates. 

5. Data recorder equates: read and punch I/O instructions, device addresses, error 
codes, and PPL function code masks. 

Fixed Addresses for System Nucleus— @FXDEQ 
Note: All labels in this module are prefixed by $. 

1. Entries to nucleus interface routines: maintenance utility aids, physical disk I/O, 
and error logging. 

2. Nucleus communications area equates (Figure 5-1). 

3. Entries to nucleus resident routines and their work areas. 

4. Equates to develop the nucleus end address. 

Common Core Locations Outside Nucleus— @C AN EQ 
Note: All labels in this module are prefixed by $$. 

1 . Displacements to fields in input line statements (header and text). 

2. Entry points, masks, switches, and fields in the keyboard and matrix printer I/O 
routines (#DPRIN: DEPRES and DPRINT). 

3. Entry points to the card reader I/O routine (#DREAD). 

4. Entry points and locations in the CRT I/O routine (#DSPLY). 

5 . Miscellaneous locations. 

6. Keyword program load addresses. 

Cylinder Zero Equates-@CYOEQ 

Note: All labels in this module are prefixed by #. 

1. Volume ID equates. 

2. SDR/OBR displacements and lengths. 

3. Cylinder 0 disk addresses and sector counts. 

System Program Area Equates for Relative Disk Addresses and Sector Counts-@SPFEQ 

Note: All labels in this module are prefixed by #$, all sector counts are prefixed by 
#$@, and all core load addresses are prefixed by #$$. 

1. Relative disk addresses, sector count, and core load address of all programs, 
error message modules, keyboard tables, etc., contained in the system program 
file. 

System Work Area Equates for Physical Disk Addresses and Sector Counts-@WKAE Q 

Note: All labels in this module are prefixed by #@ and all sector counts are prefixed by 
#@@. 

1. Cylinder 4: selected system programs, bad-line buffer, and I/O record (file 
directory 1). 

2. Cylinders 5 and 6: file index table (FIT) and work file data area. 

3. Cylinders 7, 8, and 9: virtual memory. 

4. Cylinder 9: temporary work area, core save area, and compiler and interpreter 
tables on disk. 
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File Library Addresses and Tables— @DI REQ 
Note: All labels in this module are prefixed by ##. 

1 . Labeling method description. 

2. Relative disk addresses, displacements, lengths, and masks for the file library 
directories. 

General Error Message Equa tes— @E RME Q, @SEREQ 
Note: All labels in this module are prefixed by @@. 

1. Equates to system message numbers. ##ERMS contains the message numbers and 
associated message text. 

Volume Label Equates-@VOLEQ 

Note: All labels in this module are prefixed by $#T. 

1. Displacements to fields in the volume label. 

2. Mask values for the files indicator byte. 

Volume Table of Contents (VTOC) Equates-@VTCEQ 
Note: All labels in this module are prefixed by $@$. 

1. Displacements to fields in the VTOC index. 

2. Displacements to fields in the VTOC system file labels. 

System Configuration Record Equates— @CNFEQ 
Note: All labels in this module are prefixed by @#. 

1. Component number, displacement factor, and masks for all system I/O devices. 

2. Displacement factor and masks for disk size, disk drive configuration, and core 
size. 

Virtual Memory Directory Equates; Directory 1 and Directory 2-@VMDEQ 
Note: All labels in this module are prefixed by @$. 

1 . Labeling meth od description. 

2. Displacements, field lengths, and masks for directory 1 and directory 2. 

Halt Indicator Equates-@HL TEQ 

Note: All labels in this module are prefixed by @H. 

1. All values used in HPL instructions to display halt codes. 

Compiler Fixed Equates-$B$EQU 

Note: All labels in this module are prefixed by B$. 

1. Addresses of buffers used for disk I/O. 

2. PMC generator entry points. 

3. Core-resident routine entry points and parameter addresses. 

4. Tables, subroutine precision areas, and miscellaneous equates. 

5. Common compiler switch locations and masks. 
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Compiler System Equates-$B@EQU 

Note: All labels in this module are prefixed by B@. 

1. B@C— Pseudo instruction op codes. 

2. B@L— Pseudo instruction lengths. 

3. B@B— Condition code values for the BRC pseudo instruction. 

4. B@P-Execution control code values for PRS and PRU pseudo instructions. 

5. B@T-BASIC statement type codes. 

6. B@L-BASIC statement keyword lengths. 

7. B@D— Disk addresses of PMC generators, system work file, virtual memory, state- 
ment address table, and branch address table. 

8. Special Characters. 

9. B@LET-Alphabetic characters. 

10. B@DEC-Numeric characters. 

1 1. Miscellaneous equates for constants, masks, lengths, function and array table 
elements, etc. 

12. Equates for virtual-memory allocation. 

13. Length and displacements in the loader parameter area. 

Interpreter Fixed Equates-$I$EQU 

Note: All labels in this module are prefixed by 1$. 

1 . Fixed core region addresses. 

2. Core-resident routine entry points and parameter addresses. 

3. Indicator masks. 

Fixed Addresses in Virtual Memory-$V$EQU 
Note: All labels in this module are prefixed by V$. 

1 . V$F— Intrinsic functions. 

2. V$A- Arithmetic functions. 

3. V$M— Matrix assignment functions. 

4. V$X-I/0 interfaces. 

5. V$S-System I/O routines. 

6. V$C— Conversion routines. 

7. V$D-Exeeution-time diagnostic routines. 

8. V$V— Interpreter utility routines. 

9. V$K-Keyboard IOCS character tables. 

10. Virtual memory subroutine directory containing virtual addresses, disk addresses, 
symbolic labels, and functional descriptions of all entry points in virtual memory 
execution subroutines. 

Desk Calculator Equates-@V@EQU 

Note: All labels in this module are prefixed by V@. 

1. Miscellaneous equates. 

2. Mode indicators. 

3. Displacements for the procedure table and input table, and from the first byte of 
the register. 

4. Masks and lengths. 

5. Output indicator masks. 

6. Error codes. 

7. Keyboard keys. 

8. Keyboard data byte masks for selected keys. 
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Long Precision Execution Equates— $ I <g>LEQ 
Note: All labels in this module are prefixed by I@. 

1. Data element equates. 

2. Arithmetic function reference equates. 

3. Pseudo instruction and stack element displacements. 

4. Core pages and miscellaneous equates. 

System Level Equates-@L VLEQ 
Note: All labels in this module are prefixed by @, 
System level number. 

0TEQU2 

Standard Precision Execution Equates— $I@SEQ 
Note: All labels in this module are prefixed by I@. 

1 . Data element equates. 

2. Arithmetic function reference equates. 

3. Pseudo instruction and stack element displacements. 

4. Core pages and miscellaneous equates. 
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Section 5. Data Area Formats 



This section contains detailed information concerning these areas of System/3 BASIC: 

• System communication area (NUCLES) (Figure 5-1) 

• Disk volume format (Figure 5-2) 

• Configuration record (Figure 5-3) 

• Error history log (Figure 5-4) 

• Individual volume statistics and master SIO table (Figure 5-5) 

• Disk statistical data recording (Figure 5-6) 

• Nondisk statistical data recording (Figure 5-7) 

• Outboard recording (Figure 5-8) 

• Volume label (Figure 5-9) 

• Volume table of contents (Figure 5-10) 

• Directories to system library file (Figure 5-11) 

• Null directory (Figure 5-12) 

• Password directory (Figure 5-13) 

t Filename directory block (Figure 5-14) 

• BASIC program file structure (Figure 5-15) 

• File index table (Figure 5-16) 

• File directory 1 (Figure 5-17) 

• Segment descriptor field (Figure 5-18) 

• End of file record (Figure 5-19) 

• File directory 2 (Figure 5-20) 

• System help text file (Figure 5-21) 

• Help text record (Figure 5-22) 

• Print parameter list (Figure 5-23) 

• Disk parameter list (Figure 5-24) 

• Disk control field (Figure 5-25) 

• Delete parameter list (Figure 5-26) 

• Command key table (Figure 5-27) 

• IBM-assigned command key functions (Figure 5-28) 

• System program file directory - ##DRTY (Figure 5-29) 

Data Area Formats 5-1 

Licensed Material— Property of IBM 



System 

F nuatp 


Hex Disp 
from Label 
$NUCBS 


Dec 
Disp 


Field 
Length 


Mask 


Description 


$RMRGN 


00 


0 


1 




j Right margin value for printer. 


»p i i v i n vj i m 


01 


1 


1 




Left margin value for printer. 


$PRPOS 


02 


2 


1 




Current position of printer head. 


$KEYCD 


03 


3 


1 




Keyboard indicators: 




$TRUNK 








X'80' 


Last line truncated (Keyboard input). 


$DTNMB 








X'40' 


Automatic line numbering (card NUM). 


$INRPT 








X'20' 


Program interrupted and aborted. 


$KYBSY 








X'10' 


Keyboard busy (line not yet complete). 


$GUFI R 








A Uo 


#GUFUD interrupted but not aborted. 


$NOLST 








X'04' 


No listing of card input required. 


$IOYES 








X'02' 


I/O routines are in core. 




$CARDI 








X'OV 


I nput from data recorder {bit off 
indicates keyboard input). 


$BRSAV 


04 


4 


2 




Base register save area. 




$XRSAV 


06 


6 


2 




I ndex register save area. 




$TABLN 


08 


8 


4 




Automatic line number value (inserted 
if tab key is first key depressed) . 




oc 


12 


1 


X'40' 


Blank must follow $TABLN. 


$CAERR 


0D 


13 


1 




Error code for interface to #ERRPG. 


$ERRPG 


OE 


14 


1 




Indicators for special functions of 












#ERRPG: 






$ERKEY 








x'sc 


Standard error (set by command 












analyzer #ECMAN). 




$ER1 N2 








X'50' 


Level 1 and 2 messages required. 


$ERFIL 








X'40' 


File line error has occurred. 


$ERSFL 








X'35' 


File line error occurred in syntax 












checkers. 






$ERSTK 








X'30' 


Process stacked error codes. 


$ERRCT 


OF 


15 


1 




Count of stacked error codes. 


$XIND1 


10 


16 


1 




Primary execution indicators: 


$VMDEF 








X'80' 


Virtual Memory not empty. 


$XPREC 








X'40' 


Execute in long precision (bit off 












means short precision). 




$TRVAR 








X'20' 


Trace selected 
variables. 


When X'04' is on, 
> at least one of these 
must be on. 


$TRALL 
$TFLOW 








A I U 
X'08' 


Trace all. 
Trace flow. 


$TRACE 
$STEPT 
$RUNIT 








X'04' 
X'02' 

x'or 


Execute in trace mode. 
Execute in step mode. 
Execute in run mode, 


Mutually 
exclusive. 


$XIND2 


11 


17 


1 




Secondary execution indicators: 










X'EO' 


Unused bits. 






$ABORT 








X'10' 


Abort execution. 




$PSTMT 








X'08' 


Pause caused by PAUSE statement. 


$PSTEP 








X'04' 


Pause caused by step mode. 


$PAUSE 








X'02' 


Program in pause state. 




$EXCMD 








X'or 


Program in execution. 
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System 


Hex Disp 
from Label 


Dec 


Field 


Mask 


Description 


Equate 


$NUCBS 


Disp 


Length 




$IOIND 


12 


18 


1 




I/O status indicators: 


$LNPTR 








XW 


Bidirectional printer option available. 


$DTRDR 








X'40' 


Data recorder present. 


$HRDER 








X'20' 


Hard error. 


$PCjMb 1 








y '1 rv 

A I u 


rrogram start Key nut useu icjr duiu- 












matic line number. 


$CMDKY 








X'08' 


Command keys only (bit off for full 












keyboard input). 


$CRTNO 








X'04' 


CRT can be used for system printer. 


$CRTAV 








X'02' 


CRT present. 


$MPDWN 








x'or 


Matrix printer is not operational. 


$CRTIN 


13 


19 


1 




CRT command indicators: 










X'FO' 


Unused bits. 


$CRTSP 








X'08' 


! Roll stop requested. 


$CRTPU 








X'04' 


Pop requested. 


$jCRTDN 








X'02' 


CRT in rolldown mode. 


$CRTUP 








xw 


CRT in rollup mode. 


$INDR1 


14 


20 


1 




System work file status indicators: 


$BASIC 








X'80' 


Basic program in work file. 


$KE YDT 








X'40' 


Keyboard- or card-generated data file 












in work area. 


$PGMDT 








X'20' 


Program-generated data file in work 












area. 


$FITIN 








X'10' 


FIT sectors are in core. 


<t\A/ pink' 








X'08' 


FMp nrntprtpH fnnlv/ A I I HPATF pan 

1 1 1 C |JI U LCL LCU \ U 1 1 1 y f-\ l_ l_ V_/ /-\ | I_ \s0f I 












modify file). 


$WSIND 








X'04' 


System work file contains an active 
file. 


$PRESN 








X'02' 


Long precision in use (bit off means 












short precision). 


$PROCI 








x'or 


Work file procedure indicator. 


$INDR2 


15 


21 


1 




System indicators: 


$READY 








X'80' 


READY will not be printed. 


$FDIND 








X'40' 


Line number list is deleted. 


$FUIND 








X'20' 


Line passed. 


$FCIND 








X'10' 


Single line number deletion, through 












the command analyzer (#ECMAN). 


<fcnKF R R 
<4> vj i\ l n n 








X'08' 


Disk error has occurred (an entry 












must be made in the individual volume 












statistics). 


$ERPND 








X'04' 


Error is pending for history log. 


$CMODE 








X'02' 


Conversational mode (bit off means 












utility mode). 


$TMPUT 








x'or 


In temporary utility mode. 


$INDR3 


16 


22 


1 




System indicators: 


$NWRKF 








X'80' 


No work area on F 1 . 


$NWRKR 








X'40' 


No work area on R 1 . 


$MOUNT 








X'20' 


Only MOUNT or INITIALIZE com- 












mand is valid after REMOVE 












command. 


$CLBFR 








X'10' 


Clear input line buffer. 


$NOENB 








X'08' 


Keyboard already enabled. 


$ERHRD 








X'04' 


Hard halt from #ERRPG. 


$LIST 








X'02' 


Accept rolldown key. 


$DBLOK 








x'or 


File may be saved to ** library. 
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System 
Equate 


Hex Disp 
from Label 
$NUCBS 


Dec 
Disp 


Field 
Length 


Mask 


Description 


$DKSIZ 

$DK800 
$DK600 
$DK400 
$DK200 
$DK100 


17 


23 


1 


X'EO' 
X'10' 
X'08' 
X'04' 
X'02' 

x'or 


Total disk cylinders on system: 

Unused bits. 

800 cylinders. 

600 cylinders. 

400 cylinders. 

200 cylinders. 

Reserved. 


$XIND3 


18 


24 


1 




Previous contents of $XIND1 (dis- 
placement X'10') used by loader to 
determine such things as the precision 
of VM routines. 


$FILIB 
$USRDR 


19 
1B 


25 
27 


2 
2 




Current file library disk address. 
Displacement to the first user directory 
block for the LOGON password. 


$CONFG 

$16CKY 

$12K 

$16K 

$22IMP 

$BIGCD 


1D 


29 


1 


X'08' 
X'04' 
X'02' 

X'or 

X'80' 
X'70' 


Configuration indicators: 

16 command keys present. 

Storage size is 1 2k. 

Storage size is 1 6k . 

22-inch matrix printer (bit off means 

13-inch). 

129 Card Data Recorder configured. 
Unused bits. 


$LEVEL 


1E 


30 


2 




System level number. 


$DBGUF 

$CRUSH 

$REORD 

$IRKEY 

$IOPGS 

$CALLI 


20 


32 


1 


X'80' 
X'40' 
X'20' 
X'10' 

X'08 # 
X'07' 


#GUFUD indicators: 

Crush the work file if bit is off. 

Reorder the work file if bit is off. 

Force return to keyboard mode. 

File directory 1 occupies 2 sectors. 

If only one sector is used, this bit is 

off. 

Procedure call indicator. 
Unused bits. 


$KEYBD 

$CRPOS 
$BUFPT 
$LPRP3 
$LPROS 
$NEXTB 

$NEXTL 

$DFDET 

$LPRIO 


21 

22 
23 
24 
25 
26 

27 

28 

2A 


33 

34 
35 
36 
37 
38 

39 

40 

42 


1 

1 

1 
1 
1 
1 

1 

1 

2 




Number associated with the keyboard 
table being used. 

Current position of the CRT cursor. 
Line printer buffer pointer. 
Line printer indicators. 
Line printer print position. 
Relatiye sector address of next line 
in procedure call. 

Displacement within relative sector 
for next procedure line. 
Internal procedure line fetch 
indicator. 

Save area for line printer. 


$PTCH1 


2B 


43 


11 




Patch area. 
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System 


Hex Disp 
from Label 


Dec 


Field 


Mask 


Description 


Equate 


$NUCBS 


Disp 


Length 




<fcVOI in 

«4> V \-J L_ 1 \-J 


36 


54 


32 




Volume-ID table. If volume is not 












mounted, its entire entry is binary 












O's. If no file library is present on 












the volume, the first byte of the disk 












address is X'OO'. 


<t\/OI R1 

vP V \J L — I I J 


36 


54 


6 




Volume-I D for R 1 . 




3C 


60 


2 




File library disk address on R1. 


$VOLF1 


3E 


62 


6 




Volume-ID for F1 . 




44 


68 


2 




File library disk address on F1 . 


, $V0LR2 


46 


70 


6 




Volume-ID for R2. 




4C 


76 


2 




File library disk address on R2. 


$V0LF2 


4E 


78 


6 




Volume-ID for F2. 




54 


84 


2 




File library disk address on F2. 




OO 


OO 


1 D 




riicl^ i/nli imo nrrnr rata tahl a 




OO 


DC 
OD 


9 




i uidi wnic crrorb un n i . 




58 


88 


2 




Total read errors on R 1 . 




5A 


90 


2 




Total write errors on F 1 




5C 


92 


2 




Total read errors on F1. 




5E 


94 


2 




Total write errors on R2. 




60 


96 


2 




Total read errors on R2. 




62 


98 


2 




Total writp orrnr^ on 

1 Ulul VVI 1 IC Cl 1 Ui o Ul 1 1 . 




64 


100 


2 




Total rparl prrors on F9 

l v LU) 1 cau CM Ul O Ul 1 1 , 


$PASWD 


66 


102 


8 




Current password. 


$HISTE 


6E 


110 


10 • 




Error history log entry. 




6E 


110 


1 




SIO instruction Q code. 




6F 


111 


1 




SIO instruction R code. 




70 


112 


4 




Sense bytes. 




74 


116 


1 




Count. 


$HIST1 


75 


117 


3 




Last 3 bytes of DCF (Figure 5-25). 


$DATE 


7A 


120 


3 




IPL date. 


$EXFTR 


7B ' 


123 


1 




Core expansion factor for over 8k. 


$WFNME 


7C 


124 


8 




Work file name. 


$WFDEF 


7C 


124 


1 


X'40' 


Indicates the work file is defined. 


$DPLSV 


84 


132 


6 




DPL save area for keyword programs. 


$PRDEV 


8A 


138 


2 




Core address of the system printer 












IOCR. 


$CRTAD 


8C 


140 


2 




Core address of entry to relocate CRT. 


$PLST1 


8E 


142 


7 




Last I/O parameter list started. 


$PLST2 


95 


149 


7 




Second to last parameter list started. 


$PLST3 


9C 


156 


7 




Third to last parameter list started. 


$C0001 


A3 


163 


2 




Constant of X'0001'. 
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Data Area Formats 5-5 



Fixed Areas and System Files 


CC HH 


SS 


N 


Notes 


IPL bootstrap loader (#MLOAD) 


00 00 


00 


1 


Present on all volumes. 


System configuration record 


00 00 


01 


1 


Present on all volumes.* 


Volume label 


00 00 


02 


1 


Required on all volumes. 


Error history log 


00 00 


03 


6 


Required on all volumes. 


VTOC index 


00 00 


09 


2 


Required on all volumes. 


VTOC file labels 


00 00 


11 


13 


Required on all volumes. 


System nucleus 


00 01 


00 


1 2 


Present on all volumes.* 


IBM program product protection 


00 01 


1 2 


3 


Present on all volumes.* 


Disk system management program IPL 


00 01 


15 


8 


Present on all volumes.* 


PTF Log 


00 01 


23 


1 


Present on all volumes. 


Alternate data tracks 


01 00 


00 




Six tracks present on all volumes. 




through 










03 01 


23 






System work file 


04 00 


00 




Twelve tracks required on both 




through 






R1 and F1 (24 tracks total). 




09 01 


23 






System program file 


nn 00 


00 


X 


Location defined by user. Must 




through 






be defined on drive 1 . 




nn 01 


23 






System library file 


nn 00 


00 


n 


Location and size defined by user. 




through 










nn 01 


23 






System help text file 


nn 00 


00 


n 


Location defined by user. j 




through 










nn 01 


23 






System PTF file 


xx 00 


00 


X 






through 










xx 01 


23 






Notes: 

x— Predefined values. 

n— Values that can be defined by the user. These values are defined in the volume label and by 
labels in the VTOC. 

CC HH SS N— Cylinder, head, sector, and number of sectors. 
* -Space reserved but not necessarily used. 
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Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Mask 
(bits on) 


Description 


00 


0 


16 




Reserved. 


10 


16 


1 


XW 
X'40' 
X'3F' 


Disk: 

Supported. 

Supported for System/3 BASIC. 
Unused. 


11 


17 


2 




Unused. 


13 


19 


1 


X'04' 
X'08' 
X'18' 

X'09' 

X'E2' 


Disk size and configuration: 

Model 1; 2 volumes of 100 cylinders each. 

Model 2; 2 volumes of 200 cylinders each. 

Model 2 and 3; 3 volumes of 200 cylinders each 
(F1, R1, and F2). 

Two Model 2's; 4 volumes of 200 cylinders each 
(maximum configuration). 

Unused. 


14 


20 


1 


X'80' 
X'40' 
X'3F' 


Printer: 
Supported. 

Supported for System/3 BASIC. 
Unused. 


15 


21 


1 




Unused. 


16 


22 


1 


X'09' 
X'05' 
X'OA' 
X'06' 


Model indicators: 

5213 Model 1 or 2; 132 print positions. 

5213 Model 3; 132 print positions, bidirectional. 

2222 Model 1 ; 220 print positions. 

2222 Model 2; 220 print positions, bidirectional. 


17 


23 


1 




Unused. 


18 


24 


1 


X'80' 
X'40' 
X'3F' 


Keyboard: 
Supported. 

Supported for System/3 BASIC. 
Unused. 


19 


25 


1 


X'80' 

Y'ACl' 

X'3F' 


Keyboard options: 
16 command keys. 

O UUIIIIIIdMU Iscyo. 

Unused. 


1A 


26 


1 




Keyboard character table. Contains a number that 
corresponds to the keyboard table selected. 


1B 


27 


1 




Unused. 


1C 


28 


4 




Reserved. 


20 


32 


1 


X'80' 
X'40' 
X'48' 
X'37' 


Data Recorder 
Supported 

5496-supported for System/3 BASIC 
129-supported for System/3 BASIC 
Unused. 


21 


33 


3 




Unused. 



Figure 5-3. Configuration Record (Part 1 of 2) 
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Data Area Formats 5-7 



Hex 


Dec 


Dec 


Mask 


Description 


Disp 


Disp 


Length 


(bits on) 


24 


36 


4 




Reserved. 


28 


40 


1 




2265 Display Station (CRT): 








X'80' 










X'40' 


Supported for System/3 BASIC. 








X'3F' 


Unused. 


29 


41 


3 




Unused. 


2C 


44 


16 




Reserved. 


3C 


60 


1 




Unused. 


3D 


61 


1 




Core size: 








x'or 


8k. 








A U<£ 










X'04' 


16k. 








X'F8' 


Unused. 


3E 


62 


2 




Unused. 


40 


64 


192 




Reserved. 


FF 


255 






Last byte of configuration record. 


Note: 


Four-byte entries are reserved for each possible System/3 component. This figure illustrates 


only those areas used by System/3 BASIC. 



Figure 5-3. Configuration Record (Part 2 of 2) 



Cylinder 0, Head 0, Sectors 3 through 8 


3 


4 5 


6 


7 8 






SDR (F1 only) 


OBR (F1 only) 



Master SIO Table (F1 only) 

Individual Volume Statistics (all volumes) 



Notes: 

Refer to Figure 5-5 for individual volume statistics and 
master SIO table. 

Refer to Figure 5-6 for disk statistical data recording (SDR). 
Refer to Figure 5-7 for nondisk statistical data recording (SDR). 
Refer to Figure 5-8 for outboard recording (OBR). 



Figure 5-4. Error History Log 
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1 ndividual Volume Statistics (present on all volumes) 


Hex 


Dec 


Dec 


Description 


Disp 


Disp 


Length 


00 


0 


4 


Count of total temporary errors (includes missing address markers 








and data checks). 


04 


4 


4 


Total write SIO's issued to this volume (includes verifies). 


08 


8 


4 


Total read and scan SIO's issued to this volume. 


Master SIO Table (F1 only) 


OC 


12 


4 


Total write SIO's issued to R1 . 


10 


16 


4 


Total read and scan SIO's issued to R1 . 


14 


20 


4 


Total write SIO's issued to F1 . 


18 


24 


4 


Total read and scan SIO's issued to F1 . 


1C 


28 


4 


Total write SIO's issued to R2. 


20 


32 


4 


Total read and scan SIO's issued to R2. 


24 


36 


4 


Total write SIO's issued to F2. 


28 


40 


4 


Total read and scan SIO's issued to F2. 


2C 


44 


212 


Unused to end of sector 3. 



BR1346 

Figure 5-5. Individual Volume Statistics and Master SIO Table (Cylinder 0, Head 0, Sector 3) 



Disk Error Counters (2 bytes each) 



Hexadecimal Displacement* 


Error Condition 


R1 


F1 


R2 


F2 


T 


P 


T 


P 


T 


P 


T 


P 


00 


10 


20 


30 


40 


50 


60 


70 


Overrun 


02 


12 


22 


32 


42 


52 


62 


72 


Data check in ID 


04 


14 


24 


34 


44 


54 


64 


74 


Data check on write 


06 


16 


26 


36 


46 


56 


66 


76 


Data check on read 


08 


18 


28 


38 


48 


58 


68 


78 


No record found 


OA 


1A 


2A 


3A 


4A 


5A 


6A 


7A 


Equipment check 


0C 


1C 


2C 


3C 


4C 


5C 


6C 


7C 


Missing address marker 


0E 


1E 


2E 


3E 


4E 


5E 


6E 


7E 


Seek check 



* T-temporary; P— permanent 
Notes: 

1. Statistical data recording (SDR) is present on F1 only. 

2. The remainder of sector 4 and all of sector 5 are not used for error 
recording. 
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Figure 5-6. Disk Statistical Data Recording (Cylinder 0, Head 0, Sector 4) 
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Nondisk Error Counters (2 bytes each) 



Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Error Condition 


00 


0 


2 


Keyboard parity check 


02 


2 


6 


Unused 


08 


8 


2 


CRT parity check 


OA 


10 


6 


Unused 


10 


1 6 


2 


PrintPr hr>ri7nntal rvrlp rhprk (tpmnnraru) 
r i in ici i iui i t.u Midi i_»y \j ic iriiGi>i\. vlcii ifJVJ I a i y j 


1 2 


18 


2 


n unci udia unguis. \ Ltjn ifJUi a i y / 


1 A 
I H 


zu 


9 


Printer margin check 


1 6 


22 


2 


Printer c\/ n r> r'hor'l/ ftomnnran/l 
rrilllcl ayilti UllcOK \ Lc 1 1 IfJUl d i y / 


18 


24 


2 


Prin+pr RD^ r'hor'l^ Itpmnnrarw) 


1A 


26 


2 


Printer vertical cycle check 


1C 


28 


2 


Printer horizontal cycle check (permanent) 


1E 


30 


2 


Printer data check (permanent) 


20 


32 


2 


Unused 


22 


34 


2 


Printer sync check (permanent) 


24 


36 


2 


Printer ROS check (permanent) 


26 


38 


26 


Unused 


40 


64 


2 


Data recorder not ready 


42 


66 


2 


Unused ! 


44 


68 


2 


Data recorder compare error 


46 


70 


186 


Unused to end of sector 6 



Note: Statistical data recording (SDR) is present on F1 only. 



BR 1348 

Figure 5-7. Nondisk Statistical Data Recording (Cylinder 0, Head 0, Sector 6) 



5-10 
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Outboard Recording (2 sectors on F1 only) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Description 


00 


0 


2 


Displacement to the last byte of the previous OBR entry. 


02 


2 


2 


Displacement to the last byte of the OBR table 
(always X'OIFF'). 


04 


4 


4 


Unused, 


08 


8 


504 


OBR entries (either 8 or 16 bytes in length). 



Disk OBR Entry (16 bytes) 



Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Description 


00 


0 


2 


Q and R bytes from SIO instruction. 


02 


2 


4 


Sense bytes. 


06 


6 


1 


Retry count for temporary errors (X'OO' indicates a permanent 
error). 


07 


7 


2 


Disk address from disk control field (DCF). 


09 


9 


1 


Number of sectors from DCF. 


OA 


10 


6 


Volume-ID from volume label. 



Nondisk OBR Entry {8 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Description 


00 
02 
03 


0 

2 
3 


2 
1 
1 


Q and R bytes from SIO instruction. 
Second sense byte. 
First sense byte, 


04 


4 


2 


Device dependent information. 


06 


6 


2 


Unused. 



I 



Device Dependent Information 
(displacement X'04' in nondisk OBR entries) 


Device 


Content 


CRT 
Printer 
Keyboard 
Data Recorder 


CRT address register. 

One-byte command code followed by one-byte count. 

Undefined. 

Undefined. 



BR 1349 A 

Figure 5-8. Outboard Recording (Cylinder 0, Head 0, Sectors 7 and 8) 
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Hex ' 
Dispi 


Dec 
Disp 


Dec 
Length 


Field Name 


Field Description 


nn 
uu 


n 
u 


o 
o 


1 oKqI Irton+If lor 


IVIUbl LUMldill 




o 
o 


D 


V Ol Ul 1 lfcJ-l u 


^iv alnhannmprir rhararl'Prc that nrnvirlp 
OIA d l \Jf la 1 1 u 1 1 ici iij Kit icii airici o uiai pi uviuc 

unique identification for the volume. 


09 


9 


2 


VTOC pointer 


Disk address of the first sector in the 

VUIUIIIU IdUlc Ul UUI 1 IUI 1 15. 


UD 


1 1 


7 1 


neservea 




CO 

OZ 


oZ 


1 n 


uwner iu 


1 CM at pndn U 1 1 Ici Itr OlldrdClcib UfJLIUIIdlly 

set by the user when the volume is 
initialized. 


5C 


92 


1 


Volume size 


Number of cylinders initialized. 


5D 


93 


-] 




Numhpr nf trarks dpi* rvlinHpr 

1 M u 1 1 luc 1 \J 1 li uV/i\o [jci v*y 1 1 1 itici * 


5E 


94 


1 




Number of sectors per track. 


5F 


95 


2 




Number of bytes per sector. 


61 


97 


8 


Reserved 




69 


105 


1 


CE cylinder status 


X'FO'-Track 0 on the CE cylinder is 

defective. 
X Ur - I rack 1 on the Ub cylinder is 

defective. 

X'FF'-Both tracks on the CE cylinder 

are defective. 
X'OO'-Both tracks on the CE cylinder 

are operative. 


6A 


106 


12 


Alternate track 
assignments 


One 2-byte entry per alternate track 
containing the disk address of the defec- 
tive track. The entry contains X'0000' 
if the alternate is unassigned. 


76 


118 


51 


Track usage mask 


Contains a mask of bits in a one-to-one 
correspondence with each track on the 
volume." If the bit is on, the track is 
assigned to a system file. If the bit is 
off, the track is available. Cylinders 0 

thrminh ^ rrirrp<;nnnH tn rli^nlarpmpnt 

LI II UUyi 1 O Lwl l Co(JUI IU IU U 1 o yj 1 cn^G I I ici I i 

A8. 


A9 


169 


46 


Reserved 




D7 


215 


1 


Work area 
release level 


The system release level of the work 
area. 


D8 


216 


24 


Suspected defective 
tracks 


Twelve 2-byte entries for disk addresses 
of primary data tracks suspected of being 
defective. Unused entries contain 
X'FFFF'. 
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Figure 5-9. Volume Label (Part 1 of 2) 
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Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Field Description 


FO 


240 


1 


Help VTOCtag 


Entry in the VTOC index for the system 
help text file. 


F1 


241 


2 


Help disk address 


Disk address of the first sector allocated 
to the system help text file. 


F3 


243 


1 


PTF VTOC tag 


Entry in the VTOC index for the system 
PTF file. 


F4 


244 


1 


PTF file size 


Number of cylinders allocated to the 
system PTF file. 


F5 


245 


2 


PTF disk address 


Disk address of the first sector allocated 
to the system PTF file. 


F7 


247 


1 


Library file size 


Number of cylinders allocated to the 
system library file. 


F8 


248 


1 


Library VTOC tag 


Entry in the VTOC index for the system 
library file. 


F9 


249 


1 


Work file VTOC tag 


Entry in the VTOC index for the system 
work file. 


FA 


250 


1 


Program VTOC tag 


Entry in the VTOC index for the system 

nrnnram filp 


FB 


251 


2 


Program disk address 


Disk address of the first sector allocated 
to the system program file. 


FD 


253 


2 


Library disk address 


Disk address of the first sector allocated 
to the system library file. 


FF 


255 


1 


System files indicator 


If the bit is on, the corresponding system 
file is allocated on this volume: 

X'80'-System program file. 
X'40'— System work file (R1 ). 
X'20'-System work file (F1 ). 
X'10'-System library file. 
X'08'-System PTF file. 
X'04'-System help text file. 
X'03'-Unused bits. 


Note: System file disk address in the volume label are all in the form X'nnOO', where nn is the 
first allocated cylinder number. Sector and head are always zero and the drive is always 
set for R1. 
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Figure 5-9. Volume Label (Part 2 of 2) 
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Data Area Format 5-13 



Sector 


Content 


9 




10 


11 




12 




13 




14 




15 




16 


50 File 
Labels 


17 


(4 per 
sector) 


18 




19 




20 




21 




22 




23 







Note: The last 128 
bytes of sector 23 
are unused. 



VTOC Index (512 bytes) 


Hex 
Disp 


Length 


Content 


00 


6 


Unused 


06 


500 


50 index tags 


1 FA 


5 


Reserved 


1FF 


1 


Total unused 
index tags 



File Label (64 bytes) 


Hex 
Disp 


Length 


Content 


00 


1 


File label ID number 


01 


2 


Reserved 


03 


8 


System file name 


0B 


7 


Reserved 


12 


1 


File type; X'00'for 

all System/3 BASIC files 


13 


12 


Reserved 


1F 


2 


Starting disk address 


21 


2 


Ending disk address 


23 


29 


Reserved 



Index Tag (10 bytes). 


Hex 
Disp 


Length 


Content 


00 


8 


System file name 


08 


1 


File label sector address 


09 


1 


Relative displacement 
within sector to last 
byte of file label. 
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Figure 5-10. Volume Table of Contents (VTOC) 



5-14 
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Directories to System Library File (first 7 sectors) ! 


Null 




Password 




Filename {**) 


Directory 




Directory 




Directory Block 


0 


1 


2 


3 


I 4 


5 


6 



Notes: 

1. Refer to Figure 5-12 for null directory format. 

2. Refer to Figure 5-13 for password directory format. 

3. Refer to Figure 5-14 for filename directory block format. 

4. The first two filename directory blocks, immediately 
following the password directory, are always the first 
**directory block followed by the first * directory 
block. 

BR1352 

Figure 5-11. Directories to the System Library File ■ 



Null Directory (1 sector) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Entry count 


Count of active entries in this directory. 


01 


1 


1 


Library size 


Number of cylinders in the file library. 


02 


2 


2 


Unused 




04 


4 


252 


Null entries 


Up to 42 six-byte entries. Each entry 1 
is associated with null space in the 
file library. 



I 



Null Directory Entry (six bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


2 


Null space address 


Relative disk address of the null space 
associated with this entry. 


02 


2 


2 


Size 


Number of contiguous null sectors. 


04 


4 


2 


Unused 
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Figure 5-12. Null Directory 
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Password Directory (4 sectors) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


ricia iName 


L/escnpuun 


00 


0 


1 


Entry count 


Count of active entries in this directory. ; 


01 


1 


3 


Unused 




04 


4 


1020 


Password entries 


Up to 85 twelve-byte entries. 



Password Entry (12 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


8 


Password 


Contains *WWW, **W*WW i or a 
user defined password. 


08 


8 


2 


Filename directory 
address 


Relative disk address of the first filename 
directory block associated with this j 
password. 


OA 


10 


2 


Unused 
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Figure 5-13. Password Directory 
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Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 



Filename Directory Block (2 sectors) 


Mo v 

ncX 

Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


2 


Block address 


Relative disk address of this block. 


02 


2 


2 


Forward link 


Relative disk address of the next block 

in +hi^ Hirpptnrv/ VnflnfV inHipatpQ +hp 

111 llllo Ull cului y , /\ UUUU 1 1 1 UIL>a LC3 LI IC 

last block. 


04 


4 


1 


Entry count 


Count of active entries in this block. 


05 


5 


7 


Unused ( 




OC 


12 


500 


Filename entries 


Up to ten 50-byte entries. Each entry 
is associated with a user file saved under 
a password. 



Filename Entry (50 bytes) j 


i_i qv 
nex 

Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


8 


Filename 


The name of a file as defined by the user. 


08 


8 


2 


File address 


Relative disk address of the file. 


OA 


10 


2 


File length 


Number of sectors allocated to the file. 
Includes FIT. 


OC 


12 


1 


FIT length 


Number of sectors allocated to the file 
index table (FIT). 


0D 


13 


1 


Status indicators 


If the bit is on, the file is: 

X'80'-A BASIC program file. 
X'40'— A data file generated from 

keyboard or cards. 
X'20'— A program-generated data file. 
X'10'-A pooled file. 
X'08'-A protected file. 
X'04'— An open file. 
X'02'-A data file in long precision. 
X'OV— A procedure file. 


0E 


14 


2 


Number of lines 


Number of statement lines in the file 
+ 1 (for the system generated EOF 
record). 


10 


16 


3 


Date 


MDY in packed decimal. 


13 


19 


25 


File header 


File identification information specified 
by the user. 


2C 


44 


6 


Unused 





Figure 5-14. Filename Directory Block 
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Data Area Format 5-17 



00 

01 
► 02 

03 
04 
05 
06 



DB 


Line 




00 


110 




01 


120 




02 


140 




03 


150 




05 


170 




04 


190 




06 


10000 





00 



00 



00 



05 



06 



04 



00 



> File Index Table (Figure 5-16) 



File Directory 1 {Figure 5-17) 



SDF 



SDF 



SDF 



SDF 



SDF 



SDF 



SDF 



100 



130 



SDF 



120 



SDF 



110 



180 



160 



SDF 



150 



SDF 



140 



(32) 



SDF 



SDF 



200 



170 



SDF 



190 



(32) 



SDF 



EOF 



Null 
SDF 



Null 
SDF 



Null 
SDF 



Null 
SDF 



Null 
SDF 



Null 
SDF 



Null 
SDF 



> 



Data 
Blocks 



Sample Data Block Containing EOF (1 sector) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Linkage indicator 


Sector displacement of the next logical 
data block (ascending line number order), 
relative to the first data sector in the file. 
Contains X'00' when linkage is to next 
physical block. 


01 


1 


4 


Segment descriptor 
field (SDF) 


Refer to Figure 5-18 for format. This 
SDF is associated with the second segment 
of statement 190 in the preceding example. 


05 


5 


32 


Data 


Second segment of statement 190. Data 
length in the example is 32 (X'20'). 


25 


37 


4 


Segment descriptor 
field (SDF) 


Refer to Figure 5-18 for format. This 
SDF is associated with statement 200 
(not segmented) in the example. 


29 


41 


2 


Line number 


Binary line number. The line number in 
the example is 200. 
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Figure 5-15. BASIC Program File Structure, Example (Part 1 of 2) 
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Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


2B 


43 


1 


Statement type code 


The statement type code is used by the 
compiler to classify BASIC program 
statements. Bit 0 (X'80') on in this byte 
causes program statement to be bypassed 
on compilation (disable code). Data state- 
ments to be bypassed during input opera- 
tions to a BASIC program during 
execution. 


2C 


44 


32 


Data 


First and only segment of statement 200. 
Only the first segment is prefixed by the 
line number and statement type code. 


4C 


76 


4 


Segment descriptor 
field (SDF) 


Refer to Figure 5-1 8 for format. This 
SDF is associated with the end-of-file 
(EOF) record in the example. 


50 


80 


4 


EOF record 


Refer to Figure 5-1 9 for format. The 
hexadecimal value of an EOF record is 
always X'2710751C\ The EOF record 
need not be followed by a null SDF. 


54 


84 


4 


Null segment 
descriptor field 
(SDF) 


Refer to Figure 5-18 for format. A null 
SDF can be one to four bytes in length. 
X'80' in the first byte identifies a null j 
SDF. 


58 


88 


168 


Null segment 
(free space) 


All space in a data block that follows a 
null SDF is referred to as a null segment. 


Note: 


The data portion of all BASIC program statements is packed by replacing repetitions 
(more than two characters long) with a single character and a repetition count. The 
repetition count value cannot exceed X'1 B\ It must be a lower value than the lowest 
valid functional character (X'1C), EOF code. Refer to "Pack BASIC Program 
Statements (GCPACK)" in Section 3. 
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Figure 5-15. BASIC Program File Structure, Example (Part 2 of 2) 
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File Index Table (up to 3 sectors) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Total data blocks 


Number of disk blocks (sectors) in the 
file that contain statements or data. 


01 


1 


! 2 


Total lines 


Number of program or data statements 

in t ho -f 1 1 q 

in i lit; 1 1 it;. 


03 


3 


5 


Unused 




08 


8 


2 


Save area 


Used only by the work file update/ 
crusher program (#GUFUD). 


OA 


10 


2 


FIT pointer 


Core address of the first inactive FIT 
entry. 


OC 


12 


752 


FIT entries 


Up to 189 four-byte FIT entries. Each 
active entry is associated with a block 
of data in the file. 



FIT Entry (4 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Disk address 


Sector displacement of the data block 
associated with this entry, relative to 
the first data sector in the file. 


01 


1 


2 


Line number 


Highest statement line number, in 
binary, associated with the referenced 
data block. 


03 


3 


1 


Free space 


Number of unused bytes in the ref- 
erenced data block (length of the null 
segment). I 



BR1357 

Figure 5-16. File Index Table (FIT) 
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File Directory 1 (first sector) 




File Directory 1 (second sector) 


Up to Eight 32-Byte Data File Entries 


Up to Four 32-Byte 
Data File Entries 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 



File Directory 1 Data File Entry (32 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Device code 


If the bit is on, the device is: 

A ou — rermanent uisk 

X'40'-Scratch disk 

X'20'-Card 

X'10'-Printer 

X'08'-CRT 

X'07'-Unused bits. 

X'00' in this byte indicates the entry 

is not active. 


01 


1 


8 


GET/PUT filename 


From an ALLOCATE system command. 


09 


9 


6 


Volume-ID 


From the ALLOCATE (permanent disk 
only) system command. 


09 


9 


2 


Scratch file size 


Number of sectors allocated to a scratch 
disk file. From the ALLOCATE (scratch 
disk only) system command. 


OF 


15 


8 


Password 


From the ALLOCATE (disk) system j 
command. 


17 


23 


8 


Filename 


Name assigned to the file in the file 
library. From the ALLOCATE (disk) 
system command. 


1F 


31 


1 


Second sector 
indicator 


In the first data file entry, this byte con- 
tains the page number of the second 
sector of file directory 1 in virtual mem- 
ory. When there is no second sector, this 
byte contains X'00'. This field is used 
only in the first entry. 


Note: Only the device code and GET/PUT filename are present for nondisk files. 
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Figure 5-17. File Directory 1 Format 
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Segment Descriptor Field (4 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Null segment indicator 


X'80' in this byte indicates the remainder 
of the data block is unused. The remainder 
of this null SDF, if present, contains 
binary 0's. A null SDF is used to delimit 
the active data segments in each data 
block. 


00 


0 


2 


Segment length 


Binary byte count of the data segment 
that follows this SDF. This count includes 
the four bytes of the SDF. 


02 


2 


1 


Multisegment 
indicator 


If the bit is on, the segment is: 

X'00'— A complete statement. 
X # 01 '—The first of a multisegment 

<itaf pmpnt 

9lO LCI lltjl ILi ! 

X'02'— The last of a multisegment 

statement. 
X'03'— Part of a multisegment statement, 

but not the first or last. 


03 


3 


1 


Unused 





BR1359 

Figure 5-18. Segment Descriptor Field (SDF) 



End of File Record (4 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


2 


Line number 


The binary line number generated in an 
EOF record is always X'2710\ This value 
is equal to 1 0,000 which forces this record 
to always be the last record in the file. 
This value exceeds the maximum legal 
line number that the user can enter. 


02 


2 


1 


Statement type code 


Contains a value of X'75'. This is the 
statement type code for an EOF record. 


03 


3 


1 


EOF code 


Contains a value of X'1 C\ This identifies 
this record as EOF. The total contents of 
an EOF record is always X'2710751C 


Note: 


Only BASIC program files and keyboard-generated data files have a four-byte EOF record. 
Program-generated files have only the one-byte EOF code (X'1 C) following the last data 
element. 



BR 1360 

Figure 5-19. End of File Record (EOF) 
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File Directory 2 (second page in virtual memory) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


2 


Current file 
displacement 


During execution of a BASIC program, 
this field contains the displacement from 
the start of the directory to the entry 
associated with an activated data file. 
Only one file can be activated (ADF) at 
any time. X'00' indicates that none of 

Tnti Tllcb lb dl/[lvdlcU. 


02 


2 


1 


Scratch file status 


If this byte is not X'00', scratch disk files 
have been or are currently being used by 
the program in execution. 


03 


3 


8 


Program name 


Filename of the program currently 
in virtual menory. 


OB 


11 


1 


Null directory indicator 


X'FF' in this byte indicates the null 
directory is saved. X'00' indicates it is 
not saved. 


OC 


12 


52 


Unused 




40 


64 


192 


Data file entries 


Up to twelve 16-byte entries. Each entry 
is associated with a GET or PUT filename 
referenced in the BASIC program. 



File Directory 2 Data File Entry (16 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Device code 


If the bit is on, the device is: 

X'80'— Permanent disk. 
X'40'— Scratch disk. 
X'20'-Card. 
X'10-Printer. 
X'08'-CRT. 
V'07'— Unused bits. 

X'00' in this byte indicates the entry is 
not active. This byte is copied from the 
file directory 1 entry associated with 
the same GET/PUT filename. 


01 


1 


1 


I/O status 


If the bit is on, the file is: 

X'80'— Defined on an input only file. 
X'40'— Defined on an output only file. 
X'CO'— Defined on an input/output file. 
X'20'— Long precision; bit is off for 

standard precision. 
X'1 0'— Program-generated data file; bit is 

off for keyboard or card-generated 

data files. 
X'08'-Currently activated for input. 
X'04'-Currently activated for output. 

X'08' and X'04' cannot both be 

on. 

X'02'-EOF indicator (output files only). 
X'01'-Unused bit. 


02 


2 


1 


I/O area address 


Virtual memory page number of the first 
I/O buffer allocated to this file. Multiple 
buffers al located to the same f i le are 
contiguous. ! 
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Figure 5-20. File Directory 2 Format (Part 1 of 2) 
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Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


03 


3 


1 


I/O area size 


Number of contiguous buffers (pages) 
allocated to this file. 


04 


4 


2 


Current I/O area 
pointer 


The virtual address, within the buffers, 
used to GET or PUT the next data 
element. 


06 


6 


2 


Disk address 


Physical disk address of the first sector 
of data in the file. This address references 
the file in the system library file. 


08 


8 


2 


Current disk 
pointer 


Relative sector displacement of the next 
block of data to be read into or written 
from the I/O area. This displacement is 
relative to the preceding physical disk 
address. 


OA 


10 


2 


File size 


Total number of sectors in the file con- 
taining data. 


OC 


12 


2 


SDF count 


Current count of the number of data 

Dyicb rciiidinuiy in trie ulmigmi ocyineni 

(keyboard-generated files) or bytes 
remaining in the I/O area (program- 
generated files). 


OE 


14 


2 


Unused 
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Figure 5-20, File Directory 2 Format (Part 2 of 2) 

) 



) 

5-24 
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System Help Text File 


Index 


Text (Figure 5-22) 






— Sector Boundary 



1 



Help Text Index (starts on first cylinder boundary) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


2 


Level number 


This value is compared to a level number 
constant in the HELP keyword program. 
They must be equal to access the help 
text. 


02 


2 


4 


Unused 




06 


6 




Keyword entries 


One entry for each word recognized by 
the HELP function. The last entry is 
followed by a single byte containing 
X'FF' to identify the end of the index. 



I 









Keyword Entry 


[variable length) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


1 


Keyword length 




Length (n), in bytes, of the word in this 
entry. 


01 


1 


n 


Keyword 




EBCDIC character string (no blanks). 


01 +n 


1+n 


3 


Text displacement 




Displacement from the start of the sys- 
tem help text file (start of index) to the 
first byte of first help text record to be 
printed for this keyword. (The first 2 
bytes are sector displacement; the last 
byte is byte displacement.) 
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Figure 5-21. System Help Text File 
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Help Text Record 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


4 


Segment descriptor 
field (SDF) 


Refer to Figure 5-18 for format. Records 
are fragmented across sector boundaries. 
Each segment of the record is preceded 
by a SDF. The system help text file is 
organized in a manner similar to that of 
the system library file (Figure 5-15). 


04 


4 


2 


Print line length 


Number of characters in the line to be 
printed. X'0000' causes a blank line to be 
printed. 


06 


6 


1 


End-of-text 
record indicator 


X'FF' indicates this record is an end-of- 
text record. This byte contains X'00' 
for all print lines. 


07 


7 


n 


Text 


Length (n) is determined by the SDF. 
If the print line length is zero, one 
dummy byte is present (X'00'). 


Note: 


The print line length and end-of-text record indicator fields are present only in the first 
segment of a multisegment record. 



I 



End-of-Text Record 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


4 


SDF 


Refer to Figure 5-1 8 for the format 
of the SDF. 


04 


4 


2 


Number of operator 
options 


Number of three-byte operator option 
entries in this record. X'0000' in this 
field indicates no operator options are 
present and causes the HE LP function 
to terminate. 


06 


6 


1 


End-of-text 
record indicator 


This byte contains X'FF' for all end- 
of-text records. 


07 


7 


n 

• 


Operator option 
entries 


Consecutive three-byte entries, con- 
taining the byte displacements from 
the start of the system help text file 
(start of index) to the first byte of the 
first help text record to be printed after 
the multiple-choice response. The first 
displacement corresponds to option A, 
second to B, etc. n is equal to the 
number-of-operator-options field times 
3. 


Note: 


An end-of-text record can also be a multisegment record. 
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Figure 5-22. Help Text Records 
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Print Parameter List (four bytes) 


0 


1 


2 3 


Function 


Data Length 


Data Area Address 






— — ■ Character Count when Printing or Punching 
' X'80'-Printer Carriage Return 
X'OO' -Printer Backspace 



1 



Hex 
Value 


Device Type 


Printer 


Punch 


CRT 


40 


Print 


Insert 


Print 


80 


CR 


Punch 


Return cursor 


CO 


Print and CR 


Insert and punch 


Print and return 
cursor 


10 


Backspace 


Wait 


Backspace cursor 


11 


Backspace and 
index 


Wait 


Backspace cursor 


FF 


Wait 


Wait 


Wait 


4F 


Not used 


Wait 


Roll down and 
print 
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Figure. 5-23. Print Parameter List (PPL) 
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Disk Parameter List (6 bytes) 


Function 


Disk Address 


Sector 
Count 


Data Area Address 


0 


1 2 


3 


4 5 



X'OO'- Seek ■ 
X'OV- Read— 
X'02'- Write— 
X'FF'- Wait — 



The table below shows the 
head, sector, drive, and 
volume that are selected 
for each value that can be 
contained in byte 2. 



-Cylinder Number 



Byte 2 



0 1 2 



4 5 



Head Number " 

Sector Number 

Drive ID (off = 1, on = 2) - 
Volume ID {off = removable, on = fixed) 







HeadO 






Head 1 




Sector 




































R1 


F1 


R2 


F2 


R1 


F1 


R2 


F2 


0 


00 


01 


02 


03 


80 


81 


82 


83 


1 


04 


05 


06 


07 


84 


85 


86 


87 


2 


08 


09 


OA 


OB 


88 


89 


8A 


8B 


3 


OC 


OD 


OE 


OF 


8C 


8D 


8E 


8F 


4 


10 


11 


12 


13 


90 


91 


92 


93 


5 


14 


15 


16 


17 


94 


95 


96 


97 


6 


18 


19 


1A 


1B 


98 


99 


9A 


9B 


7 


1C 


1D 


1E 


1F 


9C 


9D 


9E 


9F 


8 


20 


21 


22 


23 


AO 


A1 


A2 


A3 


9 


24 


25 


26 


27 


A4 


A5 


A6 


A7 


10 


28 


29 


2A 


2B 


A8 


A9 


AA 


AB 


11 


2C 


2D 


2E 


2F 


AC 


AD 


AE 


AF 


12 


30 


31 


32 


33 


BO 


B1 


B2 


B3 


13 


34 


35 


36 


37 


B4 


B5 


B6 


B7 


14 


38 


39 


3A 


3B 


B8 


B9 


BA 


BB 


15 


3C 


3D 


3E 


3F 


BC 


BD 


BE 


BF 


16 


40 


41 


42 


43 


CO 


C1 


C2 


C3 


17 


44 


45 


46 


47 


C4 


C5 


C6 


C7 


18 


48 


49 


4A 


4B 


C8 


C9 


CA 


CB 


19 


4C 


4D 


4E 


4F 


CC 


CD 


CE 


CF 


20 


50 


51 


52 


53 


DO 


D1 


D2 


D3 


21 


54 


55 


56 


57 


D4 


D5 


D6 


D7 


22 


58 


59 


5A 


5B 


D8 


D9 


DA 


DB 


23 


5C 


5D 


5E 


5F 


DC 


DD 


DE 


DF 



Notes: 

1 . Bytes 3-5 are not 
used for a seek 
fu nction. 

2. Bytes 1-5 are not 
used for a wait 
fu nction. 
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Figure 5-24. Disk Parameter List (DPL) 
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Sector 


Head 0 
{byte 3 
value) 


Head 1 
(byte 2 
value) 


0 


00 


80 


1 


04 


84 


2 


08 


88 


3 


OC 


8C 


4 


10 


90 


5 


14 


94 


6 


18 


98 


7 


1C 


9C 


8 


20 


AO 


9 


24 


A4 


10 


28 


A8 


11 


2C 


AC 


12 


30 


BO 


13 


34 


B4 


14 


38 


B8 


15 


3C 


BC 


16 


40 


CO 


1 7 


44 


C4 


18 


48 


C8 


19 


4C 


CC 


20 


50 


DO 


21 


54 


D4 


22 


58 


D8 


23 


5C 


DC 



Disk Control Field (4 bytes) 



O-Flags 



1— Cylinder 



2— Head and Sector 3-Number of Sectors-1 



Defective Track 
Alternate Track 



1 2 3 4 5 



Cylinder Number 
The table at the left shows 
the head and sector that 
are selected for each value 
that can be contained in 
byte 2. 



J 



Head Number . 
Sector Number . 



Forward Seek — 
(6 and 7 must be 
zero if not a seek-op) 



Number of Sectors to be 
Transferred Minus 1 
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Figure 5-25. Disk Control Field (DCF) 







— X'1C00' 






X'1 C04'-Active Delete Entry 




■ \ 


— X'1 C09'-Delete Parameter List 


| j J Secondary Input Buffer 



1 


2 


3 




Single Line 


EOS 


I 
I 
1 




1 


2 


3 


4 5 


6 


Lo Line 




Hi Line 


EOS 



Notes: 
1. 

2. 

3. 



"Single line" is the 2-byte binary line number of a 
single statement to be deleted. 
"Lo line" is the 2-byte binary lower limit of a range 
of line numbers to be deleted. 
"Hi line" is the 2-byte binary upper limit of a range 
of line numbers to be deleted. 
EOS is a single-byte end-of -statement character. 
Multiple single line and/or range delete entries may 
be present. These entries correspond to the param- 
eters of a user-supplied DELETE or EXTRACT 
system command. 



1 


2 


3 


4 


5 


6 


1 


8 


9 


10 


11 


12 


Lo Line 




Hi Line 


i 


Lo Line 




Hi Line 


EOS 
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Figure 5-26. Delete Parameter List 
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Command Key Table (1024 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


Field Name 


Description 


00 


0 


11 


Command lengths 


Length of each command assigned to command keys 
1 through 1 1 (one byte of this field is assigned to each 
command key). For the IBM-assigned functions of 
command keys 1 , 4, and 7, the length of the command is 
set to X'OO'. The range of legal values is X'OO' through 
X'5A'. 


OB 


11 


23 


Unused 




22 


34 


990 


Command text 


This area is divided into eleven 90-byte entries, one for 
each of the command keys 1 through 11. Each entry 
contains the command text assigned to one of the 
command keys 1 through 11. 1 
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Figure 5-27. Command Key Table (##CKTB) 



Command 




Key 


IBM-assigned Function 


1 


Enters desk calculator operations 


2 


RENUMBER 


3 


SAVE 


4 


Used in editing the last line entered 


5 


LIST 


6 


CONDITION 


7 


EDIT generated file name 


8 


RUN 


9 


WRITE CRT 


10 


WRITE CRT, PRINTER 


11 


WRITE PRINTER 
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Figure 5-28. IBM-assigned Command Key Functions 
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System Program File Directory Entry (16 bytes) 


Hex 
Disp 


Dec 
Disp 


Dec 
Length 


rieid Name 


Description 


UU 


U 


0 


Component name 


The name of the system component (program, table, etc.) 
associated with this directory entry. 




D 


9 




RplatiwP Hick aHHrPQC of thp rnmnnnpnt in thp ^?\/<;tpm 
ntildUVo Ulol\ dUUIco!) \J\ lllc 1>UI 1 l|JUI Id 1 1 III lilt? OyoLCIII 

Program File. This relative disk address points to the first 
sector occupied by the component. 


08 


8 


2 


Load address 


Starting storage load address for the component. 


OA 


10 


1 


Sector count 


Total number of (contiguous sectors in the System 
Program File occupied by the component. 


OB 


11 


1 


Program number 


This is a number assigned sequentially to the entries in 
this directory. 


OC 


12 


4 


Unused 
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Figure 5-29. System Program File Directory -##DRTY 
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Section 6. Diagnostic Aids 



) 



MAINTENANCE UTILITY AID PROGRAM-#ZUTMO 

Eleven options are provided by the maintenance utility aid program for diagnosing and 
correcting problems in System/3 BASIC. Certain operating procedures must be followed 
to initiate and successfully complete the specific option to be performed. 

Operating Procedure 

Performing a system stop, system reset, and system start activates the maintenance utility 
aid program (press SYSTEM STOP, set SYSTEM RESET to ON, and then set SYSTEM 
START to ON). Before activating this program, consideration should be given to manually 
recording certain information that is lost when this program is executed (for example, 
recording the IAR and ARR, or recording the last three I/O parameter lists from the 
system communication area). 

This utility program should not be activated twice in succession except to perform 
diagnosis or problem correction on the maintenance utility aid program itself. A pro- 
cessor check may result if the R option is selected during the second successive entry 
to this program if the work file is defined. To terminate a selected option before it is 
completed, press the inquiry request switch; the maintenance utility aid program is 
then reinitialized, and one of the ten options can be selected. Refer to Section 3 for an 
internal description of the maintenance utility programs. 

CAUTION 

It is possible to destroy the work file if the maintenance utility aid program (#ZUTMO) 
is activated during crushing or reordering of the work file by the work file update/ 
crusher program (#GUFUD). 

Upon activating the maintenance utility aid program, the following message is printed: 
CD, DD, VM, CP, DP, DC, DW, H, R, T, M . . . . 

and the keyboard is enabled. The operator should type in the letters representing the 
desired function and press the carriage return key. The functions available are: 

CD— Core dump 
DD— Disk dump 
VM-Virtual memory dump 
CP—Core patch 
DP-Disk patch 
DC— Disk compare 
DW-Disk write 
H-Halt 

R-Return to operating system 
T— Trace 

M— Library map and test 

Upon completion of any of the options except H, R, or T, the option list is printed 
again. 

CD— Core Dump Option 

Entering CD invokes the core dump option. #ZUTMO then requests the dump limits: 

ENTER START ADDRESS 

ENTER END ADDRESS 

Diagnostic Aids 6-1 

Licensed Material-Property of IBM 



The reply to each request should be a four-character hexadecimal address followed by a 
carriage return. The reply to the first message must have been entered correctly before 
the second message is printed. If these four characters indicating the addresses to be 
included in the dump are not valid, the message(s) are printed again. Following the entry 
of the address, the operator may wish to type in more information that will in some way 
identify or describe the dump he is taking. These additional characters may be added 
without interfering with the dump and might be instructive in reviewing it. 

Once the dump limits have been entered correctly, core is dumped, 32 bytes per line 
with an EBCDIC interpretation for each line, beginning at the specified start address 
and terminating at the specified end address or when the end of core is reached. 

Two headings are printed at the top of the dump. The first indicates the contents of 
the two index registers (BR and XR) and the PSR. The second indicates the columns 
for the beginning address of each line, the position of the data in the line, and the inter- 
pretation field of the line. Any characters in the line that are not printable are represented 
in the interpretation as EBCDIC periods. 

DD—Disk Dump Option 

Entering DD invokes the disk dump option. #ZUTMO then requests the read disk address 
and the sector count: 

ENTER RD DISK ADDRESS 

ENTER SECTOR COUNT 

The user should reply to the read disk request with a four-character hexadecimal address, 
indicating where he wishes the dump to begin, followed by a carriage return. As in the 
core dump, he may add additional comments if he wishes. The message is repeated if 
the entry is incorrect. The reply to the sector count message should be the decimal 
number of sectors to be dumped followed by a carriage return. When both messages 
have been entered successfully, the specified number of sectors, beginning at the read 
address indicated, are dumped, 32 bytes per line with an EBCDIC interpretation for 
each line. A special first header indicating the sector address is printed preceding the 
dump of each sector. The other header is the same as that in the core dump, while the 
addresses printed are displacements from the sector address. The dump terminates after 
all of the requested sectors have been dumped or after the last physical sector is dumped. 

VM -Virtual Memory Dump Option 

Entering VM invokes the virtual-memory dump option. The program then requests the 
first and last line numbers to be included in the dump: 

ENTER FIRST LINE # 

ENTER LAST LINE #. 

The user should reply to the request with a one- to four-digit decimal line number, from 
the BASIC program he wishes for the beginning of the dump, and a one- to four-digit 
decimal line number, indicating where he wishes the dump to end. A carriage return 
must follow each reply. If the entered data is incorrect, the message(s) is (are) reprinted. 
The following line represents an example of information that is included in the dump: 

0190 4F09 STH 00BE 6400BE 

where 0190 is the line number being interpreted, 4F09 is the virtual address of the 
pseudo code being interpreted (see Figure 7-1), STH is the pseudo code being inter- 
preted, 00BE is the operand of the pseudo code, and 6400BE is the instruction that 
results when an operation code is substituted for the pseudo code to which it corres- 
ponds. This kind of interpretation is listed for every pseudo code that is necessary to 
execute the instruction at a particular line number, beginning with the specified line 
number and ending with the last line number requested. 
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CP-Core Patch Option 

Entering CP invokes the core patch option. #ZUTMO then requests the beginning core 
address and the patch data to be put there: 

ENTER START ADDRESS 

ENTER PATCH DATA, USE SPACE FOR NO CHANGE 

The reply to the first request should be a four-character hexadecimal address specifying 
where the patch should begin. If the data is not valid, the request is made again. The 
reply to the second request should be contiguous, hexadecimal patch data which will be 
terminated by a carriage return. If any errors exist in the patch data, a question mark is 
printed and all of the data must be reentered. If the data is valid, it replaces the data 
previously at the specified address. If no change is desired at the indicated address, a 
space should be entered followed by a carriage return. To be certain the patch is correct, 
the operator may wish to take a core dump of the area he wishes to patch before entering 
the CP option to verify the patch address, and possibly again after the function is com- 
pleted to verify that the entered data is at that address. 

DP-Disk Patch Option 

Entering DP invokes the disk patch option. #ZUTMO then requests a displacement from 
a specified disk address where the patch should begin and the patch data that should be 
placed there: 

ENTER WR DISK ADDR 

ENTER DISPLACEMENT 

ENTER PATCH DATA, USE SPACE FOR NO CHANGE 

The reply to the first request should be a four-character hexadecimal disk address fol- 
lowed by a carriage return. If the data is invalid, the message is reprinted. The reply to 
the second message should be the two-digit hexadecimal displacement from the disk 
address entered where the patch should begin. Again, if the data is invalid, the request 
is repeated. The reply to the third message should be contiguous, hexadecimal patch 
data which is terminated by a carriage return. If an error occurs anywhere in the entered 
patch data, a question mark is printed and all of the data should be reentered. Upon 
successful entry of all replies, the data is placed at the proper displacement from the 
specified address. If a space is entered in response to the patch data request, no change 
is effected. The operator may wish to verify address and data by using the DD option. 

DC-Disk Compare Option 

Entering DC invokes the disk compare option. The program then requests the two disk 
addresses that are compared and the number of sectors for which the comparison should 
continue: 

ENTER RD DISK ADDR 

ENTER CHK DISK ADDR 

ENTER SECTOR COUNT 

The reply to the first request should be a four-character hexadecimal disk address of the 
first sector to be compared. The message is reprinted if the data is invalid. The second 
reply should be a four-character hexadecimal disk address of the sector to be compared 
against the first. This message is also reprinted if the entered data is invalid. The entered 
sector count should be the decimal number of sectors to be compared. Again, the mes- 
sage is repeated if the response is invalid. If the data at the specified addresses does not 
correspond, a message is printed indicating the two disk addresses, the displacement 
from them where the difference occurred, and the data found at each disk address. Only 
the first nonequal byte of data is documented for each pair of sectors compared. If no 
difference is indicated, it is assumed that the sectors compared equally. The comparison 
is continued until all sectors have been compared. An example of the use of this option 
would be to determine if a system library has changed. The library in question could be 
compared against the one whose contents are known. 
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DW-Disk Write Option 
CAUTION 

The operator should be certain that the address he selects for writing is the sector he 
intends to change. If there is a possibility of having to restore the sector that will serve 
as the write address, a disk dump should be taken so that the data can be recreated. 

Entering DW invokes the disk write option. #ZUTMO then requests the read and write 
disk addresses: 

ENTER RD DISK ADDR 

ENTER WR DISK ADDR 

The reply to the first request should be a four-character hexadecimal disk address that is 
to be read. If the data is invalid, the message is reprinted. The reply to the second mes- 
sage should be a four-character hexadecimal disk address where the sector indicated by 
the first address should be written. The READ sector is then copied to the sector indi- 
cated by the WRITE address. 

H- Return to System with Halt Option 

Entering H invokes the halt option. All of core that was saved, other than the system 
nucleus area, including any patches made in saved core, is restored and a system hard 
halt (halt code = D5) results. At this point, the operator may choose to reenter the 
maintenance utility aid program, re-IPL, or manually intervene using the CE console to 
set the IAR to cause program execution other than the halt. 

R-Return to System Option 

Entering R invokes the return to system option. All saved core, including any patches 
made to the saved core, is restored and control is returned to the system. The system 
nucleus area is not restored to its previous state; therefore, it may be necessary to re- 
IPL the system. The system does not resume the RUN command, and is no longer in 
a pause state if it was in such a state upon entering the maintenance utility aid program. 

Entering R on a successive activation (repeated entry) of the maintenance utility aid 
program may cause unpredictable results (e.g., program check) if the work file is defined. 
In this event, the system should be re-IPLed. 

r— Trace Option 

Entering T reverses (activates/deactivates) the maintenance trace option. When the main- 
tenance trace option is activated, the names of all programs loaded by the system nucleus 
are displayed on the system printer. These names correspond to the names listed in 
Section 4. 

Note: The programs that are not loaded to core by the nucleus (system nucleus, com- 
piler overlays, etc.) are not indicated by the trace option. 

Upon reversing the trace, core is restored and control is returned to the system (refer 
to "R-Return to System Option"). 

M— Library Mapping Option 

Entering M invokes the library mapping option. The following message is displayed: 
ENTER OPTION 1,2, OR 3 

The reply to this request can be any one of the three numbers, 1, 2, or 3, followed by a 
carriage return. The numbers have these meanings: 

1 —Map null and password directories 

2 - Map a specified password 

3- Map the entire library 
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If the reply is invalid, the message is reprinted. 
This message is displayed to request the starting disk address of the library: 

ENTER LIBRARY ADDRESS 

The reply to this request is the four-character hexadecimal physical disk address of the 
File Library area (first sector), followed by a carriage return. The physical track address 
(requires conversion) of the File Library is obtained by a VTOC display. If the reply to 
the preceding message is invalid, the message is reprinted. The following paragraphs 
describe the processing for each of the three options. 

Option 1: This option maps the null and password directories. These items are displayed: 

1 . Disk address of the null directory 

2. Total number of active entries in the null directory 

3. Physical disk address of each null area in the library 

4. Relative disk address of each null area in the library 

5 . Length of each null area expressed in sectors 

6. Disk address of the password directory 

7. Total number of active entries in the password directory 

8. Each password with the physical disk address of the first user directory block 
associated with it 

This option tests the following items: 

1 . Valid entry count fields in both directories 

2. All disk addresses are within the library boundaries 

3 . Library is within the configured disk size 

Option 2: This option traces the user directory blocks and files for a specified password. 
The following message is displayed: 

ENTER PASSWORD 

The reply to this request can be any of the passwords in the password directory. If the 
reply is invalid or the password is not in the directory, the message is reprinted. The file- 
name, disk address, size, status, and header is printed for each file'linked to the specified 
password. The status of the file is defined by these numbers: 

1— Procedure file 

2— Data file in long precision 

3— Open file 

4— Protected file 

5— Pooled file 

6— Program-generated data file 

7— Data file generated from keyboard or card input 

8— BASIC program file 

The defaults for the preceding status indicators are short precision, closed, unprotected, 
etc. 

Except for the procedure file, this option tests the following items; 

1. Valid FIT 

2. All lines of the file are contiguous 

3. File extends to the end of the allocated space 

4. An EOF is present on program-generated files 

5. All elements in a program-generated file are contiguous 

6. User directory blocks have no more than 10 entries 

7. Any user directory block having a forward link contains 10 entries 

8. First user directory block for each password has a zero entry count. All other user ■ 
directory blocks have a non-zero entry count. 

9. All disk addresses are valid and within the library boundaries 

10. Library is within the configured disk size 
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If an error is detected by option 2, a message is printed and processing continues when- 
ever possible. Certain linkages- must be valid in the library directories in order to continue 
processing; if not a program check may occur. The error is in the last file printed in this 
case. 

Option 3: This option maps the entire File Library. Entries for each null space, user 
directory block, and file are sorted, by ascending disk addresses, and printed. Each entry 
contains the filename, password (if applicable), physical and relative disk addresses, size, 
and file status (if applicable). File status is defined by these numbers: 

| 1— Procedure file 

2- Data file in long precision 

3- Open file 

4- Protected file 

5- Pooled file 

6- Program-generated data file 

7- Data file generated from keyboard or card input 

8- BASIC program file 

The defaults for the preceding status indicators are short precision, closed, unprotected, 
etc. 

This option tests the following items: 

1 . User directory blocks have no more than 10 entries 

2. Any user directory block having a forward link contains 10 entries 

3. The first user directory block for each password has a zero entry count. All other 
user directory blocks have a non-zero entry count. 

4. Valid entry count fields in the null and password directories. 

5. All disk addresses are within the library boundaries 

6. The library is within the configured disk size 

7. There are no gaps or overlaps in the library 

8. Directory entries for pooled files have the same file disk address and length. 

PTF COMMAND 

The PTF command initiates the program temporary fix (PTF) function. This function is 
used to apply PTF patches to a System/3 BASIC system program file or the system help 
text file. For PTF purposes, any component residing on cylinder 0 is considered part of 
the system program file. (PTF's to the disk system management program in a co-resident 
system must be applied using the PTF function in the disk system management program.) 
This command may be entered from the keyboard or the data recorder if in read card 
mode. 
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Following the PTF command, a PTF is entered using four types of secondary com- 
mands called PTF statements. If these statements are entered from the keyboard, they 
are typed as if they were system commands, with the only exception being that rejection 
of the statement returns control to PTF mode rather than to the system. Thus, if an 
invalid statement is typed, the statement may be reentered. 

Note: If a DATA statement is reentered, tabbing across the input line generally does 
not reproduce the checksum value originally entered, but instead leaves four blanks in 
its place. 

The only way to abort PTF mode following the PTF command entered through the 
keyboard is to use inquiry request. This aborts the PTF function being performed and 
returns control to the system with any partially entered PTF information being lost. 
Inquiry request does not abort the PTF function after a valid PTF END statement has 
been entered. A return is made to keyboard mode upon complete processing of the PTF 
END statement. 

If the PTF command is entered from the data recorder, all subsequent PTF statements 
are read from cards automatically, similar to normal system input from the data recorder. 
| Columns 88-96 (73-80 if configured for a 129) of each card containing a PTF statement 
after the PTF command are ignored; thus each card can contain a sequence number. 
Each card is listed as it is read. Any error detected in the PTF function, while in card mode, 
causes the entire PTF function to be aborted and a return to be made to the system. If 
inquiry request is used while reading cards, this aborts the PTF function being performed, 
as long as a valid PTF END statement has not been read yet. 

Any line entered in PTF mode, other than the HDR, PTF, DATA, and END statements 
described, is rejected and a question mark is printed. 

PTF's applied to the system can be listed by dumping the PTF Log (e.g., disk dump). 
Each entry in the log is six bytes in length. 

Error Conditions 

The command is rejected and PTF mode is not entered if any of the following errors 
occurs: 

1 . The system work area has not been allocated on the disk containing the current 
system program file. This work area is used as a temporary storage for the PTF 
data. 

2. Any character, other than blank(s) or a carrier return, is entered following PTF. 
HDR Statement 

Syntax 

HDR 4 ptfid 4 cksum 4 disk-spec [4 disk-spec] 

This statement defines the start of a PTF and must be the first statement entered fol- 
lowing the PTF command. The parameters of this command are: 

1 . ptfid— Six-character PTF identification. For programs in the system program file, 
the first three characters are ,BS and the last three characters are the PTF sequence 
number (in range 000-255). For the help text file the PTF ID is .BH followed by 
the three-character PTF sequence number. 

2. cksum-The four-digit checksum for this statement. (It includes the HDR and 
ptfid characters but not the checksum and the disk specifications.) 

3. disk-spec— The unit containing the system program file or system help text file 
to which the PTF is to be applied. 

4. [disk-spec] —If this parameter is present, it specifies that the PTF will come from 
disk rather than being entered from the keyboard. The specified unit must contain 
a System/3 BASIC PTF file (VTOC name is PTF). This file can contain several 
PTF's in the form of card images containing HDR, PTF, DATA, and END PTF 
statements. 
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The file is searched to find the first PTF whose HDR statement matches this statement 
entered from the keyboard. This PTF is then automatically applied and a return is made 
to a normal utility mode input condition. The PTF statements applied from disk are not 
normally printed. If any error is detected, the card image containing the error is printed, 
followed by the error message. A return is then made to the system. 

Error Conditions 

This statement is rejected if any of the following errors occurs: 

1 . The optional disk unit parameter is specified and no PTF file is on that disk. 

2. The optional disk is specified and a HDR matching the entered one does not exist 
in the PTF file. 

3. The checksum is incorrect. 

4. The first specified disk does not contain a system program file or help text file, 
depending on what is being patched. 

5. A valid HDR statement has already been accepted. 

Examples of correct syntax (the use of commas is optional): 

HDR .BS000 2244, Rl 
HDR, .BH029 A63F, Fl R2 

PTF Statement 

Syntax 

PTF 4 prog-name 4 level 4 cksum 

The PTF statement identifies the component in the system or help text to which the 
patch data in the following DATA statements is to be applied. It must be the first state- 
ment following the HDR statement. The parameters of this command are: 

1. prog-name-This is the System/3 BASIC six-character program name prefixed 
with a period. This identifies the component to be patched. 

Note: The help text file consists of more than one program. 

2. level— This is a two-digit number specifying the release level of the system program 
file or help text file to which the PTF should be applied. The release level can be 
located in ##DRTY (first component in the system program file). 

3. cksum— The four-digit accumulative checksum for this statement and the preceding 
HDR statement. 

Error Conditions 

The statement is rejected if any of the following errors occurs: 

1 . The release level of the system program file or help text file on the unit specified 
in the HDR statement is not the same as the release level specified in this PTF 
statement. 

2. The specified program name is not a valid System/3 BASIC component. 

3. The checksum is incorrect. 

4. A HDR statement has not been entered. 

5. Two PTF statements are entered without intervening DATA statements. 

6. The help text is specified and it is not found on the specified disk. 

7. The program name and the PTF identification are incompatible. (For programs 
in the system program file, .BS must have been specified in the HDR statement. 
If the help text file is specified, .BH must have been entered.) 

Examples of correct syntax (the use of commas is optional): 

PTF ,#KREAD, 00, 57DC 
PTF, .#T3HEL, 01 A996 
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DATA Statement 

Syntax 

DATA cksum a* hex-addr 

4 hex-byte [hex-byte] . . . 

This statement specifies the patch data. Any number of DATA statements (subject to 
total patch size defined) may be entered. The end of the DATA statements for this PTF 
is delimited by another PTF statement, or by the END statement. The parameters of 
this command are: 

1 . cksum— The four-digit cumulative checksum including this statement and all 
previous statements in the PTF. 

2. hex-addr— This is the absolute core starting location within the specified program 
for the data bytes on this statement. This address is not relative to the start of the 
program. It is the relative byte displacement plus the starting core address of the 
program to be patched. For example, a patch of the third byte of a program 
that starts at X £ 0C00' would specify X'0C02' as the starting patch 

address. Thus, this address corresponds to the addresses shown on the assembler 
listings for the program. 

3. hex-byte— The hexadecimal bytes (each one represented by two hexadecimal 
digits) define the information to be placed in the component. The first data 
byte of the DATA statement replaces the contents of the byte located at the 
starting address specified for this statement. The second byte is placed at the 
starting address plus one, etc. 

This command saves the specified code change and its location in the system work 
area section of the disk containing the current system. There is no restriction on the 
length of an individual DATA statement other than the line width of the input device. 
However, for any single component PTF, the total number of DATA statements times 
10, plus the number of hexadecimal bytes of code changes, must be less than approxi- 
mately 36k. A file in the work file section of the work area will be destroyed by this 
function. The disk copy of the specified component is not updated until the END state- 
ment is entered. 

Error Conditions 

This statement is rejected if any of the following errors occurs: 

1 . The specified cumulative checksum does not match the accumulated checksum. 

2. A HDR or PTF statement has not been previously accepted for this PTF. 

3. More data than that which can be contained in 36k is entered. 

Examples of correct syntax (the use of commas is optional): 

DATA 0158, 0C00, F1F2F3F4F5F6 
DATA 59BF OEFE C08704651092 

END Statement 

Syntax 
END 4 cksum 

This command is used to signify the end of a PTF. If the HDR, PTF, and DATA state- 
ments were accepted and the specified checksum matches the accumulated checksum 
for this statement and all preceding PTF statements, the copy of the specified com- 
ponent in the system program file or help text file is updated. The record of installed 
PTF's on sector 23, track 1, cylinder G, of the disk containing the patched component, 
is updated after the successful application of the PTF. If the number of PTF's exceeds 
that which can be contained in one sector, the record of the oldest installed PTF is lost. 
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When a PTF is applied to a disk (volume), the system work area on that disk (volume) 
is unassigned. If the updated component is one of the system components that has a 
copy in the system work area, any existing work areas are not updated with the PTF. ) 

The ASSIGN-WORKAREA command updates the working copies of the components 
when the work area is recreated. The work areas on both Rl and Fl contain copies of 
system programs and both should be updated with the ASSIGN-WORKAREA utility 
command. 

When the PTF END statement is completed, PTF mode is switched to system mode. 
Error Conditions 

This statement is rejected if any of the following errors occurs: 

1 . HDR and PTF commands, and at least one DATA command, have not been 
previously accepted for this PTF. 

2. The accumulated checksum for the PTF does not match the specified checksum. 

Examples of correct syntax (the use of commas is optional): 

END 2019 
END, 5548 

The following example might be used as a PTF to the command analyzer system pro- 
gram (#ECM AN) : 

PTF 

HDR .BS001 2A44 Fl 
PTF ,#ECMAN 00, 33E6 
DATA, 3DFS, OEEC, 6F 
END EE4D 

Assuming R2 contains a PTF file, the following PTF for the help text component 
might be entered through the keyboard: j 

PTF 

HDR .BH000 22BD Fl, R2 



I/O PARAMETER LIST SAVE AREA 

Contained within the nucleus of the system is a pushdown stack that contains the last 
three I/O parameter lists that have been handled by the system. This area is near the 
upper end of the nucleus and starts at label $PLST1. On the sample listing shown in 
Figure 6-1 , the label is NPLST1 and is at address X'044E\ The area has three labels- 
NPLST1, NPLST2, and NPLST3. Each label refers to a seven-byte entry in the stack. 
NPLST1 is the last I/O parameter list to be handled by the system and NPLST2 is the 
next to the last, etc. 

Interpretation of I/O Parameter List Area 

All information about these parameter lists is contained in Figures 5-23 and 5-24 with 
one exception: the first byte of each seven-byte entry determines the device referenced 
by the parameter list: 

Hex 00, 01 , 02, or 03 DPL for disk 
Hex D7 PPL for printer 

HexC3 PPL for CRT 



) 
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ttttlTRK NPAUSE - EXMSGS SAVE/RESTORE CORE INTERFACE 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 



0<+B6 



04B6 34 08 0494 

04BA 34 01 04F6 
04BE C2 01 0489 



2139 
2140 
2141 
2142 
2143 
0489 2144 



ROUTINE TO SAVE/RESTORE CORE AND EXEC EXECUTION MESS 



ORG $PAUSD 
USING $UNMSK,@BR 



04B6 2145 NPAUSE EQU 

2146 ST 
04BA 2147 NPAUS1 EQU 

2148 CS0010 ST 

2149 LA 



CI0100+@OP1,@ARR 

CS0060+@OP1,@BR 
$UNMSK,@BR 



SET LOCATION CO 

ENTRY TO SAVE C 
SAVE RETURN ADD 
ENTRY FOR EXECU 
SAVE BASE REGIS 
LOAD BASE REGIS 



Replace coding at statement 2148 with this branch: CO 87 05A4. This causes a branch 
to the patch at address 05A4. 

Starting at location 05A4, put in the following 14-byte patch: 
Address Data 

05A4 0C 14 05C6 0462 Ihis instruction moves pushdown stack to save area. 

05AA 34 01 04F6 This instruction replaces overlaid instruction at 04BA. 

05AE CO 87 04EE This instruction is for branch back to statement 2149. 

Data from pushdown stack for parameter lists is now saved in 21-byte area 
from address 05B9 through 05C6. 

The following information was required to obtain the second address (X'0462') that 
is in the MOVE instruction at address 05A4. 

Refer to the listing shown below; the address is the high-order byte of NPLST3. 



tttf 1TRK NUCLES - PERMANENT STORAGE AND CONSTANT AREAS 



044E 
0455 
045C 



0454 1893 NPLST1 DS 
045B 1894 NPLST2 DS 
0462 1895 NPLST3 DS 



CL(@DPLNG+1) 
CL(@DPLNG+1) 
CL(@DPLNG+1) 



U\ST I/O PARAM L 
2ND TO LAST PARM 
3RD TO LAST PARM 
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■Figure 6-1. Procedure to Save I/O Parameter Lists 



Recovery of Parameter List Information 

It is important to note that one of two methods of retrieval must be used to display this 
information: 



1. 



2. 



Display the parameter list area of the nucleus with the CE console starting at 
about address X'044E\ 

Modify the nucleus with a patch to save the list information prior to calling in 
the maintenance utilities. (The fetch of the maintenance utilities ordinarily updates 
the list and overlays the information to be displayed.) This patch is useful if several 
dumps of the parameter lists are required- 



Modification of Nucleus to Save Parameter Lists 

1 . Find the core save routine (label NPAUSE on listing for ##1TRK at about address 
X'04B6'). 

2. Overlay patch the four-byte instruction that saves the base register (34 01 XRXR) 
with an unconditional branch (CO 87 XXXX, where XXXX is the address of a 
patch area). 

Diagnostic Aids 6-11 



Licensed Material-Property of IBM 



3. Locate a patch area of 35 bytes; or locate two areas, one with at least 14 bytes 
and one with at least 21 bytes. (Try this around address X'05A4' where an area 
of more than 35 bytes is available.) 

4. In the 14-byte area (or first part of the 35-byte area), enter the following patch: 
OC 1 4 YYYY ZZZZ 34 01 XRXR CO 87 RTRT, where 

YYYY = Address of the last byte of the patch area where the parameter 
lists will be saved. 

ZZZZ = Address of the last byte of the I/O parameter pushdown stack 
(around X'0462'). 

XRXR = Address in last two bytes of instruction that was overlaid in step 2 

of this procedure. 
RTRT = Address of next instruction in NPAUSE. 

5. Refer to Figures 6-1 and 6-2 for detailed examples of this procedure. 



THIS PROCEDURE WILL PATCH THE NUCLEUS TO SAVE THE LAST THREE I/O PARAMETERS 

CDjDD.VM.CPjDPjDCDW.H.R.T.L CP THIS IS THE OVERLAY IN THE CORE SAVE ROUTINE 

ENTER START ADDRESS 04BA ~ ' 

ENTER PATCH DATA, USE SPACE FOR NO CHANGE 
C08705A4 



CD.DD.VM^CP.DP^DC.DW^H^R.T.L CP THIS IS THE PATCH TO SAVE THF I/O PARAMETERS 

ENTER START ADDRESS 05A4 

ENTER PATCH DATA, USE SPACE FOR NO CHANGE 
PC 140 5C6 0462 3 40 1 0 4F6C0 8 7 0 4BE 



CD,DD,VM,CP,DP,DC,DW,H,R,T,L R THE NUCLEUS IS PATCHED AND WE WILL RETURN TO BASIC 

READY 
EDIT LINE 

WORK FILE HAS BEEN CLEARED AND NAMED LINE 



READY 



CD,DD,VM,CP,DP,DC,DW,H,R,T,L CD THE FOLLOWING IS A DUMP OF THE PARAMETER SAVE AREA AND THE PATCH 

ENTER START ADDRESS 05A0 

ENTER END ADDRESS 05DO 

BR=0C00 XR=1D0B PSR=0101 

ADDR +00 123 4567 89AB CDEF +10 123 4567 89AB CDEF :::::: S!JJ:!:s it i::: INTERPRETATION"" 55 """" "" }! 

14-Byte Patch Area NPLST1 NPLST2 i 

0 5 AO OC00000 7 '0C 1405C6 04623401 04F6C087 04BE7C3FF 0104012F 8fD7C005 1 7840 1 80' " F 6. . . .C P " 

05C0 .C3C005 17 8 4 2F8 1 0 0 00000000 00000000 00000000 00000000 00000000 00000000 "C s; 

NPLST3I 

CD,DD,VM,CP,DP,DC,DW,H, R,T, L 
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Figure 6-2. System Printer Output, Example 



STAND-ALONE DUMP 

The possibility exists that the maintenance utilities cannot be loaded. An example would 
be if a problem (hardware or software) changed the coding within the nucleus, in an area 
that is required for saving core and loading the utilities, making the maintenance utilities 
unavailable. To provide information in such a situation, the following program can be 
keyed into the system. 

This stand-alone dump starts dumping at address 0000 and continues until stopped or 
until core is exceeded (Figure 6-3). 

Stand-Alone Dump Procedure 

1 . Prior to entering the program, record (from the CE panel and/or operator panel) 
any hardware data that may aid in diagnosing the problem: 

IAR 

ARR 

Status 
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2. Enter the following program by using manual entry via the keyboard, starting at 
address 1F00. Refer to IBM System/ 3 Model 6 Components Reference Manual 
GA34-0001, "Altering Storage." 



Hexadecimal 
Address 


Data in Hexadecimal Notation 


1 F00 


3C 




1 F 


5E 


C2 


01 


1 F 


70 


1 F08 


C2 


02 


00 


00 


68 


02 


00 


00 


1 F1 0 


68 


03 


01 


00 


7A 


FO 


00 


7A 


1 F1 8 


FO 


01 


7D 


FA 


00 


F2 


82 


05 


1 con 


4E 


00 


00 


1F 


68 


7D 


FA 


01 


I rzo 


F2 


82 


05 


4E 


00 


01 


1F 


68 


1 CQfl 

i rou 


D2 


01 


02 


E2 


02 


01 


OF 


00 


1F38 


1F 


64 


1F 


65 


CO 


01 


1F 


OC 


1F40 


31 


E4 


1F 


61 


31 


E6 


1F 


63 


1F48 


F3 


E0 


00 


OE 


01 


1F 


OB 


1F 


1F50 


67 


C1 


E2 


1F 


51 


3C 


40 


1F 


1F58 


64 


CO 


87 


1F 


00 


CO 


7F 


05 


1F60 


1F 


70 


1F 


5D 


40 


01 


00 


40 


1F68 


C7 
















Note: X'1F68' is the last byte. 
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3. Alter IAR to address 1F00 and start CPU. 

4. Stop CPU when necessary information has been dumped. 

5. Write information on the dump to define the core locations (see sample dump 
in Figure 6-3). 



AD0R. 

0060 
40 
90 
CO 

OI00 
40 
30 
CO 

0100 
40 
SO 
CO 

om 

AO 

so 

CO 
0400 
40 



+08 



+10 



D08 704B6E7E7E7E7E7E7E7E740C3D6D7E8D9C9C7C8E340C9 
F802FD4CO0 0 10476 3C80 0 476D08 741 7BFF1F7D02 19F2010CI5CO, 
1E5F0 01C35580218197BF0193C23009D78021BF2 90043C2400 
19F2 81045E0062375E0026265E0Q263BD0 877ED0 87533C870 47 
0 0 00030 10B4C04070000000 1000200F500AOOOOOFF0109740852\ 
1C5C0 078265E0078195C007918F3A100C08700D6 5C01211B740! 
2 520C08700D35 800B9265800BC26 70022870032A380C0 3D5|F2 
40 27C01002FE780 428C0100304792E2 7C09001FD780127F2 



101 

219C03DC2 29C000 126BA0101F3000 l98000B26FlA200E100lA89 ,, 
E435AD01DADEF20111AD01DFE1F2 810A6COUEE57C011FF2 87 1 
0 11BE77D011FF2 8106 7 8801BE010 7 3 7C0 01FF2 877 89F0 0EA3 5F 
5CO41E32 5C01193 75F0O6 2 379FO0EB35F20131C0 8 701EO9F0 0E, 
25F28712 3AOC0 3D51E00043435D0877ED0 875 3D08741C08700 
OOF1E2003840 03D2F29003F1F2 00C08700250394CO 87002503 
000000000000000000 FO 184400870389038903300200 1005070 
840000 1A000005 1EFOF1FOF0402380070000C40 110020004000 
D3C6F140 000 100000000000000020000000000000003000 100 1 
000000000000000000000707000000010B4C050700000104011 
100488C08704750000340804943C870476C0870DB0 3A2 003C3 
CO 04895C0 1710B740 2657C87607C0281F2 870AC20104897C0181 

0 0 120 0 1^L&00|0 10 7D40JAC00 3C800 56 

lCo: 
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Figure 6-3. Stand-Alone Dump, Example 
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PATCHING A DISK RESIDENT SYSTEM PROGRAM 



Considerations: Two types of patches should be considered: 

• Overlay 

• Additional coding 

Overlay Patch: To make an overlay patch, locate the section of coding to be replaced, 
and change that specific area. 

Additional Coding: To patch with additional coding, several things must be considered: 

• How to exit from original coding? 

• Will the base register range be exceeded? 

• Where is space available for additional code? 

• How can this coding be restored if it is not effective? 

• How to return to original coding? 

Solutions to Considerations: The considerations can be resolved as follows: 

• To exit from the original code, overlay patch at the logical point in original coding 
with a branch to the additional code (example: CO 87 XXXX, where XXXX is 
address of the patch). 

Note: This may require the overlay of more than one instruction. 

• If the patch that is branched to is beyond the range of the base register, use long 
instructions in the patch, to prevent the need for changing registers (when possible). 

• The space for patching with additional coding can be found in four optional areas: 

1. Patch area of the module. 

2. Overlay a message constant. 

3. Overlay a section of the module not being used. 

4. Patch area of the nucleus. 

Note: You must consider that option 2 will cause incorrect messages and options 
3 and 4 will work for only a temporary situation. 

• To restore coding with a minimum of effort, the original coding should be placed on 
an unused area of disk (use DW option of maintenance utilities). 

• To return to original coding requires a branch as follows: CO 87 YYYY, where 
YYYY is the return address. 

Note: Be sure to include, as the last part of the patch, that portion of the program 
that was overlaid by the branch to this patch. 

Procedure to Patch a Disk Resident Program: Patch a disk resident program as follows: 

1. Determine the disk address of segment(s) of program to be patched. Locate the 
directory entry for the program in ##DRTY (first seven sectors of the system 
program file). This entry contains the starting disk address and number of sectors 
occupied by the program. The relative location of a patch can be determined by 
matching machine code between the program's assembly listing) (microfiche) and 
a dump of the sectors the program occupies. 

2. Write sector(s) to be patched to some unused area of disk. This step should be 
taken to provide a simple method of restoring the program to normal. 

3. Modify program with disk patch facility. 

4.. If the patch does not work and/or the program must be returned to normal, copy 
back the information saved in step 2 to restore the program. 
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FINDING A LIBRARY FILE ON DISK 




Sector Address 0008 




Displacement 
and Address 




Displacement 
and Address 




1 . Dump the volume label at disk 
address 0008. (Note: The appro- 
priate disk and drive bits must 
be added for files not on R1 ; 
refer to "Disk Address Specifi- 
cations for Utility Dump" in 
Section 7.) The cylinder address 
of the password directory is 
located in 00FD and 00FE. 




2. Dump the password directory 

(5 sectors) using the disk address 
obtained in step 1 . (Note: Disk 
and drive bits must be added for 
files not on R1 ; refer to "Disk 
Address Specifications for Utility 
Dump" in Section 7.) The first 
sector is the null directory. In 
the next 4 sectors, a 2-byte dis- 
placement follows each 8-byte 
name field. Add the appropriate 
displacement to the address of 
the password directory. Convert 
this address to a physical disk 
address by referring to "Disk 
Address Specifications for Utility 
Dump" in Section 7 to find the 
user file directory. Example: 

Cylinder address of 2D00 
password directory 

Two-byte displacement 0C1 C 

Added 39 1C 

Converted 3990 

3. Dump the user file directory 
using the disk address calculated 
in step 2. The 8-byte name field 
is followed by a 2-byte displace- 
ment. Add this displacement to 
the disk address found in step 1 
and convert to a physical disk 
address. Dump the number of 
sectors specified in the file length 
bytes. The file length is located 
in the 2 bytes following the file 
displacement (Figure 5-14). A 
keyword-generated file has a 

1- to 3-sector FIT, a 1 -sector 
I/O record if it is a program file, 
and data blocks. 

Note: If the user file directory 
is larger than 2 sectors, a forward 
link displacement resides in the 
third and fourth bytes of the 
block header. If there are no 
additional blocks, this field will 
contain binary 0's. 

4. Program files have been character- 
packed and set up as "segments." 
Data items in data files are in 
internal format. Keyboard data 
files also are "segmented." 
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HOW TO USE THE FE MAP 



The nucleus contains a six-byte area that identifies the last six program modules that 
have been loaded by the system. This area can be found by referring to the listing for 
##1TRK around address X'0584\ The label for the area is NFEMAP and there is also 
a system equate of $FEMAP. Each byte in this area identifies a program module that 
has been loaded. The byte at the lowest address is the last module loaded. You must 
take into consideration that calling in the maintenance utilities makes three entries in 
i the FE map. If you need to know more than the last three modules loaded, you 
must display this area using the CE console. 

Identification of Programs in the FE Map 

Assume that the following hexadecimal data is in the FE map: X'5A 04 2E 
01 03 02'. This indicates that the last module loaded was #ZUTMO and that it was pre- 
ceded by #DPRIN, #EXMSG, #INSTD, #LOADR, and #BCOMP. 

Figure 6-4 shows how program numbers can be found in the FE map for #INSTD, 
#BCOMP, #DPRIN, and #LOADR. To obtain this information, take a disk dump of the 
system program file directory (first seven sectors of the system program file). This pro- 
vides a list of all program modules and the hexadecimal number for that particular 
module. 




Note: This is a disk dump of the system program file directory. 
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Figure 6-4. Identification of Program Numbers 
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ADDRESS STOP PROCEDURE FOR PROGRAM LOADING 

This procedure can be used to stop the system before or after execution of a specific 
program module. This method enables you to obtain a core or disk dump at a specific 
point, or allow a check of system indicators at a specific time. 



Stop Address Selection 

The following three stopping points can be used: 



Label of Address 
in Nucleus 


*Current 
Address 


Condition at Time of Stop 


1. NBLOAD 

2. NBL067 

3. NLOADR 


X'051E' 
X'056E' 

X'0516' 


Last module name printed by trace has executed. 

Last module name printed by trace has loaded but 
not executed. 

Will occur when a module is called to load only. Name not 
yet printed by trace; e.g., this happens when I/O modules 
are called into the low end of core storage. 


*The core addresses used are subject to change and are shown here only as an instructional aid. 
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Method to Activate Address Stop 

1 . Turn on module trace by using the "T" option of the maintenance utilities. 

2. Choose the address that you require and set it up with the address switches on 
the CE console. 

3. Turn on the address compare stop switch. Make sure the roller switch is set for 
SAR. Run the program until the proper module name prints. Make observations 
or take dumps that you require. 
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This halt occurs during IPL if the volume on disk drive Rl is initialized (contains 
formatted tracks), but does not have a standard System/3 volume label on cylinder 0, 
head 0, sector 2. The following procedure is used to bypass halt 2345: 

1 . Make sure the user wishes to destroy the data content of the volume mounted on 
Rl . The volume label, or any area, can be displayed from Rl using the disk dump 
(DD) option of the maintenance utility aid program (#ZUTMO). This program can 
be invoked when the halt occurs. 

2. If the first 3 bytes of the volume label are not the characters VOL, the volume does 
not have a standard System/3 volume label. 

3. Invoke the disk patch (DP) option of the maintenance utility aid program. 

4. Store X'ABCDEF' as the first 3 bytes of sector 2 on cylinder 0, head 0. The IPL 
program accepts this hexadecimal value (Rl only) and does not issue halt 2345. 

5. Perform a system IPL after completing the patch. Volumes that are patched in this 
manner are assumed to require initialization. 
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Section 7. Object Program 



This section details a method of laying out the contents of an execution-time disk dump 
of virtual memory. (Note: Taking a complete dump of virtual memory is not a realistic 
approach to troubleshooting user-program execution problems.) This section also details 
a method for determining the contents of an execution-time core dump. Refer to Figure 
7-1 to convert virtual addresses to disk addresses. 



HOW TO TAKE A SEQUENTIAL DISK DUMP OF VIRTUAL MEMORY 

The disk area occupied by virtual memory is cylinders 7 and 8, and over half of cylinder 9 
in the system work area. As this area is a logical four-track file, it is necessary to indi- 
vidually dump the following six disk areas to get a sequential listing of virtual memory: 

1. Starting disk address— 0700; sector count— 48 (cylinder 7; Rl). 

2. Starting disk address-0701 ; sector count-48 (cylinder 7; Fl). 

3. Starting disk address-0800; sector count-48 (cylinder 8; Rl). 

4. Starting disk address-0801 ; sector count-48 (cylinder 8; Fl). 

5. Starting disk address-0900; sector count-48 (cylinder 9; Rl). 

6. Starting disk address-0901 ; sector count-16 (cylinder 9; Fl). 

Total 256 pages (64k) 
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Object Program 7-1 



V/;*+l lal 

virtual 


UISK 


\/irti ml 
V 1 llUal 


UlbK 


Virtual 
V 1 1 lUal 


Disk 


Virtual 


Disk 


Memory 


Auar 


Memory 


ArlHr 


tvitMTiur y 


Addr 


Mpmnrv 

IVIGI 1 IKJt y 


Addr 


OOxx 


0700 


40xx 


0741 


80xx 


08A0 


COxx 


0900 


01 xx 


0704 


41 xx 


0745 


81 xx 


08A4 


C1xx 


0904 


02xx 


0708 


42xx 


0749 


82xx 


08A8 


C2xx 


0908 


03xx 


070C 


43xx 


074D 


83xx 


08AC 


C3xx 


090C 


04xx 


0710 


44xx 


0751 


84xx 


08 BO 


C4xx 


0910 


05xx 


0714 


45xx 


0755 


85xx 


08B4 


C5xx 


0914 


06xx 


0718 


46xx 


0759 


86xx 


08B8 


C6xx 


0918 


07xx 


071C 


47xx 


075D 


87xx 


08BC 


C7xx 


091 C 


08xx 


0720 


48xx 


0781 


88xx 


08C0 


C8xx 


0920 


09xx 


0724 


49xx 


0785 


89xx 


08C4 


C9xx 


0924 


OAxx 


0728 


4Axx 


0789 


8Axx 


08C8 


CAxx 


0928 


OBxx 


072C 


4Bxx 


078D 


8Bxx 


08CC 


CBxx 


092C 


OCxx 


0730 


4Cxx 


0791 


8Cxx 


08 DO 


CCxx 


0930 


ODxx 


0734 


4Dxx 


0795 


8Dxx 


08D4 


CDxx 


0934 


OExx 


0738 


4Exx 


0799 


8Exx 


08 D8 


CExx 


0938 


OFxx 


073C 


4Fxx 


079D 


8Fxx 


08 DC 


CFxx 


093C 


10xx 


0740 


50xx 


07A1 


90xx 


0801 


DOxx 


0940 


11 XX 


0744 


51 xx 


07A5 


91xx 


0805 


Dlxx 


0944 


1 2xx 


0748 


52xx 


07A9 


92xx 


0809 


D2xx 


0948 


13xx 


074C 


53xx 


07AD 


93xx 


080D 


D3xx 


094C 


14xx 


0750 


54xx 


07B1 


94xx 


0811 


D4xx 


0950 


15xx 


0754 


55xx 


07B5 


95xx 


0815 


D5xx 


0954 


16xx 


0758 


56xx 


07 B9 


96xx 


0819 


D6xx 


0958 


17xx 


075C 


57xx 


07BD 


97xx 


081 D 


D7xx 


095C 


18xx 


0780 


58xx 


07C1 


98xx 


0821 


D8xx 


0980 


19xx 


0784 


59xx 


07C5 


99xx 


0825 


D9xx 


0984 


1 Axx 


0788 


5Axx 


07C9 


9Axx 


0829 


DAxx 


0988 


1 Bxx 


078C 


5Bxx 


07CD 


9Bxx 


082D 


DBxx 


098C 


1Cxx 


0790 


5Cxx 


07D1 


9Cxx 


0831 


DCxx 


0990 


1 Dxx 


0794 


5Dxx 


07D5 


9Dxx 


0835 


DDxx 


0994 


1 Exx 


0798 


5Exx 


07D9 


9Exx 


0839 


DExx 


0998 


1Fxx 


079C 


5Fxx 


07DD 


9Fxx 


083D 


DFxx 


099C 


20xx 


07A0 


60xx 


0800 


AOxx 


0841 


EOxx 


09A0 


21 xx 


07A4 


61 xx 


0804 


A1 xx 


0845 


E1xx 


09A4 


22xx 


07A8 


62xx 


0808 


A2xx 


0849 


E2xx 


09A8 


23xx 


07AC 


63xx 


080C 


A3xx 


084D 


E3xx 


09AC 


24xx 


07B0 


64xx 


0810 


A4xx 


0851 


E4xx 


09 BO 


25xx 


07 B4 


65xx 


0814 


A5xx 


0855 


E5xx 


09 B4 


26xx 


07B8 


66xx 


0818 


A6xx 


0859 


E6xx 


09 B8 


27xx 


07BC 


67xx 


081C 


A7xx 


085D 


E7xx 


09 BC 


28xx 


07C0 


68xx 


0820 


A8xx 


0881 


E8xx 


09C0 


29xx 


07C4 


69xx 


0824 


A9xx 


0885 


E9xx 


09C4 


2Axx 


07C8 


6Axx 


0828 


AAxx 


0889 


EAxx 


09C8 


2Bxx 


07CC 


6Bxx 


082C 


ABxx 


088D 


EBxx 


09CC 


2Cxx 


07D0 


6Cxx 


0830 


ACxx 


0891 


ECxx 


09D0 


2Dxx 


07D4 


6Dxx 


0834 


ADxx 


0895 


EDxx 


09 D4 


2Exx 


07 D8 


6Exx 


0838 


AExx 


0899 


EExx 


09 D8 


2Fxx 


07DC 


6Fxx 


083C 


AFxx 


089 D 


EFxx 


09DC 


30xx 


0701 


70xx 


0840 


BOxx 


08 A 1 


FOxx 


0901 


31 xx 


0705 


71 xx 


0844 


B1xx 


08A5 


F1xx 


0905 


32xx 


0709 


72xx 


0848 


B2xx 


08A9 


F2xx 


0909 


33xx 


070D 


73xx 


084C 


B3xx 


08 AD 


F3xx 


090D 


34xx 


0711 


74xx 


0850 


B4xx 


08B1 


F4xx 


0911 


35xx 


0715 


75xx 


0854 


B5xx 


08B5 


F5xx 


0915 


36xx 


0719 


76xx 


0858 


B6xx 


08 B9 


F6xx 


0919 


37xx 


071 D 


77xx 


085C 


B7xx 


08BD 


F7xx 


091 D 


38xx 


0721 


78xx 


0881 


B8xx 


08C1 


F8xx 


0921 


39xx 


0725 


79xx 


0884 


B9xx 


08C5 


F9xx 


0925 


3Axx 


0729 


7Axx 


0888 


BAxx 


08C9 


FAxx 


0929 


3Bxx 


072D 


7Bxx 


088C 


BBxx 


08CD 


FBxx 


092D 


3Cxx 


0731 


7Cxx 


0890 


BCxx 


08D1 


FCxx 


0931 


3Dxx 


0735 


7Dxx 


0894 


BDxx 


08D5 


FDxx 


0935 


3Exx 


0739 


7Exx 


0898 


BExx 


08 D9 


FExx 


0939 


3Fxx 


073D 


7Fxx 


089C 


BFxx 


08DD 


FFxx 


093D 
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Figure 7-1. Conversion of Virtual Addresses to Disk Addresses 
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Disk Address Specifications for Utility Dump 

The following chart provides a means of converting disk address (cylinder, head, sector 
ID, and spindle ID) into, a two-byte address format that the programming system requires. 
For example, cylinder 5, head 0, sector 2 for Rl (spindle-drive) is disk address X'0508\ 



Disk Address 


Byte 1 


Byte 2 


0|1|2[3|4|5[6|7 


0 1 1 1 2 1 3 1 4 I 5 6 I 7 



The table below shows the 
head, sector, drive, and 
volume that are selected 
for each value that can be 
contained in byte 2. 



Cylinder Number 



Head Number 

Sector Number 

Drive I D (off = 1 , on = 2) — 
Volume ID (off = removable, on = fixed) * 



Hexadecimal 
Sector 


Decimal 
Sector 


HeadO 


R1 


F1 


R2 


F2 


00 


0 


00 


01 


02 


03 


01 


1 


04 


05 


06 


07 


02 


2 


08 


09 


OA 


OB 


03 


3 


oc 


OD 


OE 


OF 


04 


4 


10 


11 


12 


13 


05 


5 


14 


15 


16 


17 


06 


6 


18 


19 


1A 


1B 


07 


7 


1C 


1D 


1E 


1F 


08 


8 


20 


21 


22 


23 


09 


9 


24 


25 


26 


27 


OA 


10 


28 


29 


2A 


2B 


0B 


11 


2C 


2D 


2E 


2F 


oc 


12 


30 


31 


32 


33 


0D 


13 


34 


35 


36 


37 


0E 


14 


38 


39 


3A 


3B 


OF 


15 


3C 


3D 


3E 


3F 


10 


16 


40 


41 


42 


43 


11 


17 


44 


45 


46 


47 


12 


18 


48 


49 


4A 


4B 


13 


19 


4C 


4D 


4E 


4F 


14 


20 


50 


51 


52 


53 


15 


21 


54 


55 


56 


57 


16 


22 


58 


59 


5A 


5B 


17 


23 


5C 


5D 


5E 


5F 



Hexadecimal 
Sector 


Decimal 
Sector 


Head 1 


R1 


F1 


R2 


F2 


18 


24 


80 


81 


82 


83 


19 


25 


84 


85 


86 


87 


1A 


26 


88 


89 


8A 


8B 


1B 


27 


8C 


8D 


8E 


8F 


1C 


28 


90 


91 


92 


93 


1D 


29 


94 


95 


96 


97 


1E 


30 


98 


99 


9A 


9B 


1F 


31 


9C 


9D 


9E 


9F 


20 


32 


AO 


A1 


A2 


A3 


21 


33 


A4 


A5 


A6 


A7 


22 


34 


A8 


A9 


AA 


AB 


23 


35 


AC 


AD 


AE 


AF 


24 


36 


BO 


B1 


B2 


B3 


25 


37 


B4 


B5 


B6 


B7 


26 


38 


B8 


B9 


BA 


BB 


27 


39 


BC 


BD 


BE 


BF 


28 


40 


CO 


C1 


C2 


C3 


29 


41 


C4 


C5 


C6 


C7 


2A 


42 


C8 


C9 


CA 


CB 


2B 


43 


CC 


CD 


CE 


CF 


2C 


44 


DO 


D1 


D2 


D3 


2D 


45 


D4 


D5 


D6 


D7 


2E 


46 


D8 


D9 


DA 


DB 


2F 


47 


DC 


DD 


DE 


DF 



How to Lay Out Virtual Memory (Standard Precision) 

Documentation required to lay out an execution- time disk dump of virtual memory is: 

1 . Execution-time disk dump of virtual memory. 

Note: Modifications to pages in core may not be reflected in the disk dump. 

2. Maintenance utility core dump (all of core). 

3. Maintenance utility dump of virtual memory (pseudo instructions). 

4. Listing of the user's System/3 BASIC language program. (A copy of this can be 
obtained using the LIST system command.) 

5 . Assembly listing of #FMSTD. 

6. Assembly listings of #TEQU1 and #TEQU2 (system equates). 
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Object Program 7-3 



The first step in laying out virtual memory is to block out the disk dump into the 
major^areas illustrated in Figure 7-2. Lay out the following fixed areas first (these can be 
individually formatted by referring to the indicated figure or section in this manual): 

1 . Disk address 0700 (1 sector; starts at virtual address 0000; contains file 
directory 1); refer to Figure 5-17. 

2. Disk address 0704 (1 sector; starts at virtual address 0100; contains file directory 2); 
refer to Figure 5-20. 

3. Disk address 0708 (82 sectors; starts at virtual address 0200; contains fixed execu- 
tion subroutines); refer to "Virtual Memory Resident Execution Subroutines— 
#FMSTD and #FMLNG" (Section 3). 

4. Disk address 07B1 (2 sectors; starts at virtual address 5400, contains general 
purpose buffers). 

5. Disk address 07B9 (starts at virtual address 5600, contains pseudo machine 
instructions); refer to "VM -Virtual Memory Dump Option" (Section 6). The 
last pseudo instruction will always be EOF. 

6. Disk address 091 1 (starts at virtual address F4FF; contains constants); refer to 
"Floating-Point Arithmetic" (Section 3) for arithmetic constants, and Figure 3-110 
for character constants. Constants are generated at descending virtual addresses 

as they are encountered in the user's program. 

7. Disk address 0915 (X'36' bytes; starts at virtual address F500 to F535; contains 
internal constants and internal work area— &CWRK and &WRK); refer to 
"Floating-Point Arithmetic" (Section 3) for internal constants. This area is 
generated by the loader (#LOADR); refer to "Loader— Second Phase of Compil- 
ation-#LOADR" (Section 3). 

8. Disk address 0915 (starts at virtual address F536; contains variables); refer to 
"Floating-Point Arithmetic" (Section 3) for arithmetic variables, and Figure 3-110. 
for character variables. Variables are allocated at ascending virtual addresses as 
they are encountered in the user's program. 

9. Disk address 093D (starts at virtual address FFFF; contains array dope vectors 
and virtual addresses of user function definitions); refer to Figure 3-156 for 
arithmetic array dope vectors, and Figure 3-157 for character array dope vectors. 
This area is allocated at descending virtual addresses as array references, user 
function references, and user function definitions are encountered in the user's 
program. The virtual address operands of the following pseudo instructions 
reference (Figure 7-3) this area: 

SA1 

SA2 

SB1 

SCI 

SF1 

SF2 

SD0 

SD1 

SD2 

FCI 
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Page of LY34-0001-1 
Revised November 15, 1973 
By TNL: LN21-7729 



0000 


File Directory 1 (page 1)*** ] 


0100 


File Directory 2 


0200 




Fixed Execution Subroutines (#FMSTD or #FMLNG) 




53FF 


5400 


General Purpose Buffer 1 


5500 


General Purpose Buffer 2 


5600 




Pseudo Machine Instructions 




Region 1 (arrays, buffers) 


* 






Constants 




F4FF 


F500 ** 


F536 ^ 




Variables 


* ► 






Region 2 (arrays, buffers) 


* 


Array Dope Vectors and 




User Function VADRs FFFF 


Notes: 



*The virtual addresses that define the limits of 
region 1 and region 2 are variable. 
**F500 and all virtual addresses (constants, internal 
constants, variables, etc.) developed from it are 
precision dependent. 
***Page 2 of file directory 1 is allocated 
in either region 1 or region 2. 

Figure 7-2. Virtual Memory Map 

Object Program 7-5 



Licensed Material— Property of IBM 



SC1 SF1 FCI SF2 



Character 
Array Dope 
Vector (4 bytes) 


Arithmetic 
Array Dope 
Vector (8 bytes) 


Virtual Address 
of User Function 
Definition (2 bytes) 


Arithmetic 
Array Dope 
Vector (8 bytes) 











X'FFEA' X'FFEE' X'FFF6' X'FFF8' 



Figure 7-3. Pseudo Instruction Reference to Virtual Memory, Example 

The next step in laying out virtual memory is to determine the virtual address limits of 
region 1 and region 2 (refer to Figure 7.-2). Both regions start and end on page boundaries. 
The limits can be determined by inspecting virtual address operands in the generated 
pseudo instructions. 

1. The starting virtual address of region 1 is the next ascending page following the last 
page of pseudo instructions. (Example: If the last pseudo instruction is generated 
at virtual address 5B4E, region 1 starts at 5C00.) 

2. The ending virtual address of region 1 is the next descending page preceding the 
page containing the last generated constant. The virtual address of the last 
generated constant is determined by inspecting STF and STC pseudo instructions. 
The virtual addresses in the operands of constant stacking instructions descend 
from F500. All constants can be formatted by tracing this descending chain of 
virtual addresses in the generated pseudo instructions. (Example: If the virtual 
address of the last generated constant is F3F8, region 1 ends at F2FF.) 

3. The starting virtual address of region 2 is the next ascending page following the 
page containing the last allocated variable. The virtual address of the last allocated 
variable is determined by inspecting STA, STF, and STC pseudo instructions. The 
virtual addresses in the operands of variable stacking instructions ascend from 
F536. All variable elements can be formatted by tracing this ascending chain of 
virtual addresses in the generated pseudo instructions. (Example: If the virtual 
address of the last allocated variable is F620, region 2 starts at F700.) 

4. The ending virtual address of region 2 is the next descending page preceding the 
page containing the last allocated array dope vector or user function virtual 
address. These fields normally occupy only one page; therefore, region 2 normally 
ends at virtual address FEFF. 

Alternate Method to Lay Out Virtual Memory (Standard Precision): The preceding 
virtual addresses are resolved by the compiler and passed to the loader in a common 
parameter area (Figure 3-155). This area can be inspected in a core dump taken between 
the execution of these two programs (refer to "CD-Core Dump Option" in Section 6). 

The arrays can be formatted by inspecting the contents of the array dope vectors. 
Allocated buffers can be located by inspecting file directory 2 (page 01). 

The virtual address operands of all FCI pseudo instructions should point to a location in 
virtual memory containing the virtual address of the corresponding user function defi- 
nition in the generated pseudo instruction (virtual address of a BRA generated for a DEF 
statement). It is now possible to resolve that the virtual address operands of all generated 
pseudo instructions reference the correct data element or subroutine entry point. 



Licensed Material-Property of IBM 



How to Lay Out Virtual Memory (Long Precision) 

Use the preceding method of laying out virtual memory for standard precision, keeping 
the following considerations in mind: 

1 . #FMLNG occupies the area starting at virtual address 0200 instead of #FMSTD. 

2. All arithmetic data elements are allocated nine bytes instead of five. This includes 
constants, variables, array elements, and internal constants. 

3. The virtual address that divides constants from variables is F000 instead of F500. 
All virtual addresses affected by this location must be adjusted. Also, the size of 
the area containing internal constants is increased to accommodate elements of 
greater length. The area containing variables starts immediately after internal 
constants and internal work area (virtual address F03F when running in long 
precision). (Page F0 is located at disk address 0901 in virtual memory.) 

HOW TO LAY OUT AN EXECUTION-TIME CORE DUMP 

Documentation required to determine the contents of an execution-time core dump is: 

1. Maintenance utility core dump taken while the interpreter program is in execution. 
(A core dump taken while the interpreter is in an execution pause state does not 
contain the complete core-resident interpreter.) 

2. Maintenance utility dump of virtual memory (pseudo instructions). 

3. Listing of the user's System/3 BASIC language program. (A copy of this can be 
obtained by using the LIST system command.) 

4. Assembly listings of #INSTD and #FMSTD, or listings of #INLNG and #FMLNG, 
depending upon the precision. 

5. Assembly listings of #TEQU1 and #TEQU2 (system equates). 

If the following conditions do not exist in the dump, it is not a valid execution-time 
core dump: 

1. X'0600' must contain #INSTD or #INLNG. 

2. X'0700' must not contain any valid program name (example: #DPRIN). 

3. X'OCOO' must not contain any valid program name (example: #GUFUD). 

4. X'OEOO' may contain the name of an interpreter execution overlay. The program 
name at this address, if present, must be #FISTD, #FILNG, or #SFFIN. 

5. X'OFOO' may contain the name of an interpreter execution overlay. The program 
name at this address, if present, must be #SFLOA. 

The core dump can be divided into the major areas as illustrated in Figure 3-163 
(interpreter core map). The location and size of certain areas in the dump are dependent 
upon the core size of the system. Figure 1A lists the fixed core addresses to be used in 
laying out the core dump (all addresses are in hexadecimal). 



Licensed Material-Property of IBM 



Object Program 7-7 



Address 


Length 


Description 


0600 


7 bytes 


Program name and ID number 


0607 


50 bytes 


Arithmetic function work area 


0639 


240 bytes 


Run-time stack (contains variable length entries) 


14CA 


256 bytes 


Core page table (nonzero entry indicates page in core) , 


1600 




Start of core paging area (8k system only) 


1FFF 


10 pages 


End of core paging area (8k system only) 


1700 




Start of core paging area (12k or 16k system) 


28FF 


1 8 pages 


End of core paging area (12k system with CRT) 


2FFF 


25 pages 


End of core paging area (1 2k system without CRT) 


38FF 


34 pages 


End of core paging area (16k system with CRT) 


3FFF 


41 pages 


End of core paging area (16k system without CRT) 
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Figure 7-4. Fixed Core Addresses in Execution-Time Core Dump 
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Appendix A. System/3 Basic Assembler Language 



MACHINE INSTRUCTION REFERENCE TABLE 



Standard Mnemonics 


Instruction 


Mnemonic Operation Code 


Zero and add zoned decimal 


ZAZ " 




Add zoned decimal 


AZ 




Subtract zoned decimal 


SZ 




Move hex character 


MVX 




Move characters 


MVC 


y Two-address 


Compare logical characters 


CLC 


format* 


Add logical characters 


ALC 




Subtract logical characters 


SLC 




Insert and test characters 


ITC 




Edit 


ED , 




Move logical immediate 


MVI ' 




Compare logical immediate 


CLI 




Set bits on masked 


OD IN 




Set bits off masked 


SBF 




Test bits on masked 


TBN 




Test bits off masked 


TBF 




Store register 


ST 


> One-address 


Load register 


L 


format* 


Add to register 


A 




Branch on condition 


BC 




Test I/O and branch 


TIO 




Sense I/O 


SNS 




Load I/O 


LIO 




Load address 


LA 




Advance program level 


APL ' 




Halt program level 


HPL 


. Command 


Start I/O 


SIO 


format* 


Jump on condition 


JC 




*See "Machine Instruction Formats" in this 


appendix. 
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Extended Mnemonics 


Instruction i 


Mnemonic Operation Code 




Move hex character (MVX): 




Move to zone from zone 


MZZ 


Move to numeric from zone 


MNZ 


Move to zone from numeric 


MZN 


Move to numeric from numeric 


MNN 


Branch on condition (BC): 




Branch 


B 


Branch high 


BH 


Branch low 


R I 
D L 


Branch equal 


BE 


Branch not high 


BNH 


Branch not low 


BNL 


Branch not equal 


BNE 


Branch overflow zoned 


BOZ 


Branch overflow logical 


BOL 


Branch no overflow zoned 


BNOZ 


Branch no overflow logical 


BNOL 


Branch true 


BT 


Branch false 


BF 


Branch plus 


BP 


Branch minus 


BM 


Branch zero 


BZ 


Branch not plus 


BNP 


Branch not minus 


BNM 


Branch not zero 


BNZ 


Jump on condition (JC): 




Jump 


J 


Jump high 


JH 


Jump low 


JL 


Jump equal 


JE 


Jump not high 


JNH I 


Jump not low 


JNL 


Jump not equal 


JNE 


Jump overflow zoned 


JOZ 


Jump overflow logical 


JOL 


Jump no overflow zoned 


JNOZ 


Jump no overflow logical 


JNOL 


Jump true 


JT 


Jump false 


JF 


Jump plus 


JP 


Jump minus 


JM 


Jump zero 


JZ 


Jump not plus 


JNP 


Jump not minus 


JNM 


Jump not zero 


JNZ 
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System/3 Basic Assembler Language A-l 
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MACHINE INSTRUCTION FORMATS 




Two-Address Formats 



4 Bytes 



OP 
Code 


Length 
Count 


Destination 

Address 

Displacement 


Source 

Address 

Displacement 



0 7 8 1516 2324 31 



5 Bytes 



OP 
Code 


Length 
Count 


Direct 

Destination 

Address 


Source 

Address 

Displacement 


0 


7 8 15 16 




31 


32 39 


OP 
Code 


Length 
Count 


Destination 

Address 

Displacement 


Direct 
Source 
Address 



0 7 8 15 16 23 24 39 

6 Bytes 



OP 

Code 


Length 
Count 


Direct 

Destination 

Address 


Direct 
Source 
Address 



0 7 8 15 16 31 32 47 



^^One-Address Formats 
3 Bytes 



OP 


Q 


Address 




Code 


Code 


Displacement 




r 


8 15 


16 23 




Immediate Data 


Destination Address \ 


I Bit Mask 




Source Address | 


Register Address 


Branch Address 


| Branch or Skip Condition 




i 


• Data Selection 




i 


L__ 

4 Bytes 






1 
i 


OP 


Q 


Direct 


Code 


Code 


Address 



Command Format 



3 Bytes 


OP 




Q 


Control 


Code 




Code 


Code 


0 7 


8 


15 


16 23 



r' 



i 

Device Address 
and Functional 
Specifications 
Skip Condition 
Halt Identifier 



7 8 



15 16 



31 
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Operation Code 

The first byte of each instruction, the operation code, specifies the addressing modes to 
be employed by the instruction in bits 0 through 3, and the operation to be performed 
in bits 4 through 7. 

Q Code 

The second byte of each instruction is the Q code. In two-address formats, the Q code 
is always a length count. In other formats, depending upon the operation specified, the 
Q code can be: 

Length count 

Immediate data 

Bit mask 

Register address 

Data selection 

Branch or skip condition 

Device address and functional specifications 

Control Code 

The third byte of an instruction in the command format contains additional data per- 
taining to the command to be executed. 

Storage Addresses 

For instructions in the one-address and two-address formats, the third byte of the instruc- 
tion and all bytes following are storage address information. 

ASSEMBLER INSTRUCTION REFERENCE TABLE 



Operation Entry 


Name Entry 


Operand Entry 


DC 


Any symbol or blank 


One operand entry containing: duplication 
factor, type, length, constant. 


DROP 


Blank 


Specified register (1 or 2). 


DS 


Any symbol or blank 


One operand entry containing: duplication 
factor, type, length. 


EJECT 


Blank 


Blank. 


END 


Blank 


A relocatable expression. 


EQU 


Any symbol 


An expression. 


ICTL 


Blank 


Two decimals in the form of b, e. 


ISEQ 


Blank 


Blank, or two decimal vaules in the form L, R. 


ORG 


Blank 


Blank, or an expression (A) optionally followed 
by two absolute expressions in the form A, b, c. 


PRINT 


Blank 


One or two entries from: DATA, NODATA; 
ON, OFF. 


SPACE 


Blank 


Blank, or a decimal value. 


START 


Name 


A self-defining value, or blank. 


TITLE 


Name or blank 


A sequence of characters enclosed in apostrophes. 


USING 


Blank 


A relocatable expression (v) and an index register 
(r) in the form v, r. 
— — _ , 
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Where more than one page reference is given, the major reference is first. 



$B$EQU-compiler equate module 3-154 
$B$EQU— compiler fixed equates 4-9 
$B@EQU-compiler system equates 4-10 
$BLOAD (NBLOAD) 3-16 
$CABLD (NABORT) 3-12 

$CAERK (NCAERK)- interface to system printer IOCR 3-10 

$CAIPL (NABORT) 3-12 

$CARPL (NABORT) 3-12 

$CIENT, $UNMSK (NQUIRY) 3-12 

$CIMSK, usage in $UNMSK 3-12 

$DISKN (DKDISK) 3-4 

$DPLSV (#UPACK) 3-137 

$ERPND, usage in NERLOG 3-9 

$EXFTR (#DSPLY) 3-41 

$FCIND (#GUFUD) 3-22 

$FDIND(#GUFUD) 3-22 

$FUIND (#GUFUD) 3-22 

$HISTE, usage in NERLOG 3-9 

$I$EQU-interpreter, fixed equate module 3-205 

$I$EQU-interpreter fixed equates 4-10 

$I@LEQ-long precision execution equates 4-1 1 

$I@SEQ-standard precision execution equates 4-11 

$INDR1 indicator as used in #KEDIT 3-55 

$INRPT, usage in NQUIRY 3-12 

$ISEQU fixed address referencing 3-205 

$LOADR (NBLOAD) 3-16 

$PAUSD (NPAUSE) 3-14 

$PRDEV, usage in NSPRNT 3-10 

$RLOAD (NBLOAD) 3-16 

$RSTR (NPAUSE) 3-14 

$SPRNT (NSPRNT)-interface to system printer IOCR 3-10 

$SPRNT— system printer calling sequence 3-41 

$UNMSK, $CIENT (NQUIRY) 3-12 

$V$EQU— fixed addresses in virtual memory 4-10 

$WAITF 7 usage in NERLOG 3-9 

$$CDBS (#GRAPR) 3-40.1 

card input status (#GUFUD) 3-27 
$$ERSK-stacked error entry 3-18 
$$PRES-enable key input (#GUFUD) 3-26 
$$PYCD-CRT branch in DEPRES 3-38 
*(one-star) } general description 2-6 
**(two-star) library, general description 2-6 
#BCOMP, #BOVLY-compiIer 3-153 
#BCOMP-calling sequence and load 3-155 
#BCOMP— core resident routines 3-153 
#BCOMP-entry point 3-155 * 
#BOVLY— calling sequence and load 3-155 
#BOVLY-PMC generator (statement processor) overlays 3-154 
#DPRIN-conversational I/O routines 3-35 
#DREAD-card reader I/O routine 3-39 
#DSPLY-CRT I/O routine 3-41 
#ECMAN— command analyzer 3-28 
#EFKEY— command key processor 3-30 
#ERRPG— error message program 3-18 
#ERRPG, usage in NCAERK (error program interface) 3-10 
#EXMSG- program interruption processor 3-20 
#FILNG— long precision matrix inversion/determinant 3-222.1 
#FISTD- standard precision matrix inversion/determinant 3-222.1 
#FMLNG-long precision virtual memory resident execution 

subroutine 3-201 
#FMSTD-standard precision virtual memory resident 

execution subroutine 3-201 

usage in random number generator 3-222.2 
#GRAPR— procedure file line processor 3-40.1 
#GUFUD initial entry (GUFENT) 3-22 
#GUFUD-work file update/crusher 3-21 



#INLNG-long precision interpreter 3-201 
#INSTD-standard precision interpreter 3-201 
#KALLO-keyword program 3-45 
| #KCALL— CALL keyword program 3-46.1 
#KCNDI-CONDITION keyword program 3-49 
#KCTLO-LISTCAT keyword program 3-69 
#KDELE- DELETE keyword program 3-50 
#KDISP-DISPLAY keyword program 3-53 
#KDNTE-ENTER keyword program 3-59 
#KDOVR-DISPLAY keyword program 3-5 3 
#KEDIT-EDIT keyword program 3-55 
#KENAB-ENABLE/DISABLE keyword program 3-57 
#KEXTR-EXTRACT keyword program 3-59 
#KGOSL-GO keyword program 3-6 1 
#KHELP-HELP keyword program 3-62 
#KKEYS-KEYS keyword program 3-64 
#KLLAY-card punch IOCR 3-66 
#KLIST-LIST keyword program 3-66 
#KLOGO-LOGON/OFF keyword program 3-71 
#KMERG-MERGE keyword program 3-73 
#KMOUN-MOUNT keyword program 3-75 
#KNAME— RENAME keyword program 3-85 
#KPASW-PASSWORD keyword program 3-76 
#KPOOL-PULL/POOL keyword program 3-78 
#KPRTC-PROTECT keyword program 3-77 
#KREAD-READ keyword program 3-8 1 
#KRLAB- first phase of RELABEL keyword program 3-81 
#KRMOV core map 3-83 
#KRMOV-REMOVE keyword program 3-83 
#KRNUM-RENUMBER keyword program 3-87 
#KROVL overlay in RENUMBER keyword program 3-88 
#KRSUM-RESUME keyword program 3-89 
#KRUNI- RUN/STEP/TRACE keyword program 3-91 
#KRVLA— second phase of RELABEL keyword program 3-81 
#KS AVE- SAVE keyword program 3-92 
#KSETI-SET keyword program 3-94 
#KSOVR-SET keyword program 3-94 
#KSSPN-SUSPEND keyword program 3-95 
#KSYMB-SYMBOLS keyword program 3-97 
#KWIDT- WIDTH keyword program 3-99 
#KWRIT- WRITE keyword program 3-100 
#KYBSY indicator (CRDBSY) 3-39 
#LO ADR— loader, second phase of compilation 3-193 
#MIPPE— nucleus initialization program 3-2 
#MIPPE— nucleus initialization program flowchart 3-3 
#MLOAD-IPL bootstrap loader 3-2 
#SDSYN-data syntax checker 3-34 
#SFFIN-find disk data file 3-222.2 
#SFLOA-logical IOCS for disk data files 3-225 
#SFSYN-BASIC statement syntax checker 3-32 
#SPACK-pack file library subroutine 3-123 
#SPOVL (#SPACK) 3-123 
#SPOVL overlay (#SPACK) 3-123 
•| #SPSYN-procedure line checker 3-34.1 
#TEQUl-system equates 4-7 
#TEQU2-system equates 4-1 1 
#UALLO- ASSIGN utility program 3-127 
#UATRC- ALTERNATE-TRACK utility program 3-1 25 
#UCDIS-COPY volume utility program 3-1 3 1 
#UCDIS usage in #UCPLI 3-130 
#UCNFI-CONFIGURE utility command 3-1 29 
#UCNFI-CONFIGURE utility program 3-129 
#UCPLI-COPY file utility overlay 3-130 
#UDELV (#UDISV) 3-143 
#UDELV-VTOC- DELETE utility program 3-141 
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#UD1SV usage in #UDELV 3-143 
#UDISV-VTOC-DISPLAY utility program 3-143 
#UEXLI-EXPAND utility program 3-133 
#UINIT-INITIALIZE disk utility program 3-1 34 
#UPACK-PACK utility program 3-1 37 
#UPTFI-PTF utility program 3-138 
#VCRTI-DCALC CRT physical IOCS 3-276 
#VLOAD-first phase of DCALC 3-272 
#VLOAD flowchart 3-277 
#VODKA-DCALC core resident routines 3-269 
#VODKA flowchart 3-277 
#VODKA, modules 3-269 

#VVMRS~ DCALC virtual memory resident subroutines 
3-270, 3-272 

#VXITI-DCALC terminator (second phase) 3-276 
#VXITI flowchart 3-277 
#ZDUMP branch table 3-149 
#ZDUMP-VM dump overlay 3-149 
#ZLBMA-library mapping, mainline entry 3-150 
#ZLVRL— library mapping, option 3 overlay, part 2 3-150 
#ZL1MA-Iibrary mapping, option 1 overlay 3-150 
#ZL2MA-library mapping, option 2 overlay 3-150 
#ZL3MA— library mapping, option 3 overlay, part 1 3-150 
#ZTRAC— maintenance program load trace 3-44 
#ZUTMO-maintenance utility aid program 6-1 
#ZUTMO— maintenance utility monitor 3-145 
##CKTB-command key table 5-30 
##CORE, usage in save/restore core (NPAUSE) 3-14 
##DRTY-system program file directory 5-31 
##ERMS- DCALC error message text 3-273 
##VUFA- DCALC virtual memory resident subroutines 3-270 
#@#BAD bad line buffer (#KCHAN) 3-47 
@CANEQ— common core locations outside nucleus 4-8 
@CNFEQ— system configuration record equates 4-9 
@CY0EQ-cylinder zero equates 4-8 
@DIREQ-file library addresses and tables 4-9 
@ERMEQ-general error message equates 4-9 
@FXDEQ-fixed addresses for system nucleus 4-8 
@FXDEQ, usage in NUCLES 3-9 
@HDWEQ-system hardware I/O equates 4-8 
@HLTEQ-halt indicator equates 4-9 
©LVLEQ- system level equates 4-1 1 
@SEREQ— general error message equates 4-9 
@SPFEQ-system program area equates for relative disk 

addresses and sector counts 4-8 
@SYSEQ— system and hardware equates 4-7 
@V@EQU-desk calculator equates 4-10 
@VMDEQ-virtual memory directory equates (directory 1 

and 2) 4-9 

@VTCEQ-volume table of contents (VTOC) equates 4-9 
@WKAEQ— system work area equates for physical disk 

addresses and sector counts 4-8 
@XR (index register)-character core address 3-161 



abort current operation routine-NABORT, $CAIPL, 

$CARPL, $CABLD 3-12 
access next statement and set up processing (compiler) 3-179 
accessing PMC generators 3-153 
activate address stop, procedure 6-17 
activate external data file, (ADF), pseudo instruction 3-239 
active external data file— SFADFR 3-218 
add, (ADD), pseudo instruction 3-226 
add error, compiler, equated to B$PFAE 3-161, 3-162 
add record, compiler, set by default 3-161, 3-162 
ADD pseudo instruction execution, label trace 3-226 
ADD (X'06*)> add, pseudo instruction 3-230 
additional coding patch of disk resident system program 6-14 
address stop procedure for program loading 6-17 



ADF(X'58'), activate eternal data file, pseudo instruction 
3-240 

algebraic expression constants 3-162 

ALL parameter (#KCHAN) 3-47 

ALL parameter in #KDOVR 3-53 

-ALL parameter in #UDELV 3-141 

-ALL parameter in DELETE (#KDELE) 3-50 

allocate disk space (#U ALLO) 3-1 27 

ALLOCATE, file directory 1 description 2-11 

ALLOCATE keyword program-#KALLO 3-45 

allocation 

alternate data tracks 2-4 

arrays in virtual memory-LALLOC 3-193 

copied/saved program file 2-8 

core paging 3-206 

current data file 2-7 

current program file 2-7 

data file buffers in virtual memory— LDFILE 3-194 

disk working storage for programs 2-6 

file directory 1 2-8 

file library (system library file) 2-6 

help text file 2-7 

I/O information sector 2-8 

paging module 3-209 

PTF file 2-7 

selected system programs 2-5 

system file 2-5 

system library file 2-6 

system program file 2-6 

system work area 2-5 

system work file 2-5 

temporary disk work area 2-6 

user programs and data 2-6 

virtual memory 2-6, 2-8 

volume information cylinder 2-4 

volume label 2-4 

VTOC 2-4, 2-5 

work file 2-5, 2-7 
alphabet reference table (BDSART) 3-165 
alternate 

data tracks 2-4 

method to lay out virtual memory (standard precision) 7-6 

track address, IOCS 3-5 

track assignment in #UINIT 3-134 
ALTERNATE-TRACK utility program-#UATRC 3-1 25 
appendix A, System/3 Basic Assembler Language A-l 
arithmetic 

array dope vector 3-193 

array symbol table-B$SNAT 3-194 

character output to sequential data file 3-218 

constant conversion 3-163 

constant, pack (#SDSYN) 3-34 

constant processed by BCFCON 3-162 

constant, test and translate (#SDSYN) 3-34 

expression conversion to pseudo instruction sequences 3-169 

expression PMC subroutine— BFSCAN 3-167 

operations {see also pseudo instructions) 3-227 

operations, general description 2-10 

packed-decimal format 3-268 

unpacked-decimal format 3-268 
array 

allocation parameters 3-193 
allocation in virtual memory 3-193 
arithmetic dope vector 3-194 
arithmetic for standard precision 3-193 
character 3-193 
element length 3-193 
row, validity check (FZXINP) 3-218 
assembler instruction reference table A-3 
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assembly listing 

contents of #VODKA 3-269 

DCALC 3-269 

interpreter 3-201 

microfiche 4-1 
assign alternate tracks (#U1NIT) 3-134 
ASSIGN usage in #UATRC 3-125, 3-126 
ASSIGN utility program-#UALLO 3-127 
assignment list PMC subroutine-BLISTA 3-175 
automatic line number overflow 3-26 



B$ADSW-address available switch 3-166 

B$BCKT-identifies virtual address bucket 3-165 

B$BCKT label usage in BDSYMB 3-164 

B$BCKT— operand address bucket 3-168 

B$CRSW— character reference switch 3-166 

B$FRSW— function reference switch 3-166 

B$FSCl-function scan identifier (first character) 3-165 

B$FSC2— function scan identifier (second character) 3-165 

B$FSSW~function scan switch 3-165 

B$FSVA— function scan virtual address 3-165 

B$GBSW-bypass blanks switch 3-160 

B$GPTR— address of selected character 3-161 

B$HRSW-matrix reference switch 3-166 

B$IFSW~intrinsic function switch 3-166 

B$KWSW- expression keyword switch 3-166 

B$LINE-line number 3-161 

B$MRSW-matrix reference switch 3-165 

B$NUMC-character skip count 3-160 

B$PFNC parameter usage in compiler 3-161 

B$SCAT-character array symbol table 3-195 

B$SFAB-user function addresses and array dope vectors 3-165 

B$SNAT-arithmetic array symbol table 3-194 

B$TYPE-statement type code 3-161 

backspace (DPRINT) 3-35 

backspace and index (DPRINT) 3-35 

backspace key (DEPRES) 3-37 

BAGETC output parameters 3-161 

BAGETC-statement input subroutine 3-160 

BASIC 

mode of operation 1-1 

program file structure format 5-18 

programs, general description 1-1 

statement, general description 1-1 

statement syntax {see syntax, PMC) 

statement syntax checker-#SFSYN 3-32 
BBPUTC-virtual memory output routine 3-161, 3-168 
BCFCON-constant generator subroutine 3-162 
BDSYMB— symbol translator subroutine 3-164, 3-176 
BECSCN-character expression PMC subroutine 3-166 
BFSCAN-arithmetic expression PMC subroutine 3-167 
BFSCEN-current entry 3-168 
BFSSTK-compile-time stack 3-168 
BFSTBL-scan routine branch table 3-168 
BGINIT functions 3-155 
BGINIT— overlay during compilation 3-155 
BHDDSA— sector byte label 3-158 
BHDIST-compiler distributor 3-159 
BHDPAT-processor address table 3-158 
BLISTA-assignment list PMC subroutine 3-175 
BMATXR-matrix reference PMC subroutine 3-176 
BNX (X^A'), branch and suppress execution, pseud o 
instruction 3-246 
BRA (X'46'), branch unconditionally, pseudo instruction 3-245 
branch 

address buffer (in core) 3-160 
address entry 3-160 
address resolution routine 3-166 
address table 3-160 



branch (continued) 

address table (on disk) 3-160 

address table, general description 3-158 

address table sorting 3-197 

on condition, (BRC), pseudo instruction 3-245 

and delete function entry, (BRD), pseudo instruction 3-245 

instructions, PMC sequence 3-16 1 

-to-next statement 3-158 

pseudo instruction addresses 3-176 

to stacked address, (BRS), pseudo instruction 3-246 

and statement address table 3-197 

and suppress execution, (BNX), pseudo instruction 3-246 
table subroutine- BR AT AB 3-176 
unconditionally, (BRA), pseudo instruction 3-245 
BRATAB-branch table subroutine 3-176 
BRC (X'44'), branch on condition, pseudo instruction 3-245 
BRD (X'48'), branch and delete function entry, pseudo 

instruction 3-245 
BRS (X C 4C), branch to stacked address, pseudo instruction 
3-246 

BSSVRB-variable elements (arithmetic and character) 3-165 
BTRMNT-compiler terminator overlay 3-191 
BVDL4T-disk four-track logical IOCS interface 3-177 
bypass blanks switch-BSGBSW 3-160 
BZCOMN-compiler common module 3-154 

| CALL keyword program -#KC ALL 3-46.1 
card 

or disk file close or reset (SFRSET) 3-218 
NUM input (#GUFUD) 3-26 
punch IOCR-DCDOUT 3-105 
punch physical IOCS-DFCOUT 3-216 
reader I/O routine-#DREAD 3-39 
reader physical IOCS-DFRDIN 3-216 
reader/punch physical IOCS-DFRDIN, DFCOUT flow- 
chart 3-216 

caution procedure, maintenance utility aid program 6-1 

CB1, CB2, CB3, CB4 (#GUFUD) 3-21, 3-26 

CD-core dump (#ZUTMO) 3-145 

CD-core dump option, operating procedure 6-1 

central work area, paging 3-210 

CHANGE keyword program-#KCHAN 3-47 

CHANGE option usage in #UINIT 3-135 

character 

array dope vector 3-195 

array symbol table-B$SCAT 3-195 

constant processed by BCFCON 3-162 

constant, test and translate (#SDSYN) 3-34 

expression PMC subroutine-BECSCN 3-166 

field format 3-163 

segment 3-163 

skip count-B$NUMC 3-160 

string constant processed by BCFCON 3-163 

string delimiter 3-163 
characteristic, floating-point arithmetic 3-266 
check component field (#UCNFI) 3-1 29 
check system status (#GUFUD) 3-26 
CIT (core index table)-#GUFUD 3-22 
clear CRT screen-DSPCMD 3-41 
close, compiler, equated to B$PFCL 3-161, 3-162 
close external data file, (CLS), pseudo instruction 3-241 
close or reset external data files-SFRSET 3-218 
CLOSE, PMC syntax 3-181 

CLS (X'5E'), close external data file, pseudo instruction 3-241 
CMC (X'42*), compare character elements, pseudo 

instruction 3-244 
CMF (X'40') 5 compare floating point values, pseudo 

instruction 3-244 
codes 

core-resident modules 3-205 
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codes (continued) 

interpreter print and carrier positioning 3-219 

virtual memory modules 3-205 
comma delimiters (FZXINP) 3-218 
command 

analyzer-#ECMAN 3-28 

key functions, IBM-assigned 5-30 

key processor-#EFKEY 3-30 

key table-(##CKTB) 5-30 

key 01 3-269 

keys, other than 1 through 1 1 (DEPRES) 3-37 
keys 1 through 1 1 (DEPRES) 3-37 

common 

core locations outside nucleus-@CANEQ 4-8 

parameter area, compiler/loader 3-192 

subroutines 3-101 

work areas, INTERP 3-208 
compare character elements, (CME), pseudo instruction 3-244 
compare floating point values, (CMF), pseudo 

instruction 3-244 
com pile-time 

indicators 3-155 

stack— BFSSTK 3-168 

stack entries 3-169 
compiler 

#BCOMP flowchart 3-179 

accessing PMC generators 3-155 

add error 3-162 

add record 3-162 

arithmetic constant 3-162 

arithmetic constant conversion 3-163 

arithmetic expression PMC subroutine-BFSCAN 3-167 

assembly listings 3-153 

assignment list PMC subroutine-BLISTA 3-175 
branch address table 3-160 
branch table subroutine-BRATAB 3-176 
character constant 3-163 

character expression PMC subroutine-BECSCN 3-166 
character string constant 3-163 
close 3-162 

common module-BZCOMN 3-154 
constant generator subroutine- BCFCON 3-162 
constants passed via label B$CTYP 3-162 
conventions used, core-resident modules 3-154 
conventions used, disk-resident modules 3-154 
conversions of subexpressions to pseudo instruction 

sequences 3-173 
converting arithmetic expressions to pseudo instruction 

sequences 3-169 
core-resident module referencing 3-154 
core resident routines 3-153, 3-159 
cycle 3-153 

detailed program description 3-153 

disk four-track logical IOCS interface- BVOL4T 3-177 

disk-resident module referencing 3-154 

distributor-BHDIST 3-159 

entries in compile-time stack 3-169 

equate module-$B$EQU 3-154 

filename table 3-157 

filename table, general description 3-155 

fixed equates-$B$EQU 4-9 

floating point data length 3-155 

initialization 3-155 

initiator-BGINIT 3-155 

input parameters to B AGETC 3-160 

input text pointer 3-160 

intrinsic functions 3-165 

labeling conventions 3-154 

loader common parameter area 3-192 

loader programs, general description 2-1 



compiler (continued) 

loader, second phase of compilation-#LOADR 3-193 

long precision subroutines 3-155 

matrix reference PMC subroutine-BMATXR 3-176 

organization of assembly listings 3-153 

organization of PMC generators on disk 3-158 

output parameters from BAGETC 3-161 

overlap, abort 3-162 

PMC generator (statement processor) overlays-#BOVLY 
3-154 

PMC (pseudo machine code) generator 3-155 

PMC sequences showing branch instructions 3-161 

PMC statement processors, general specifications 3-177 

priority of pseudo instructions 3-168 

processor address table 3-158 

program reference to core-resident and disk-resident 

modules 3-155 
pseudo instruction sequences (see syntax, PMC) 
resolving virtual-memory addresses 3-157 
RUN program name core map (8K system), example 3-156 
stack-arithmetic-expression-value 3-1 67 
stack-basic-element sequences 3-178 
stack-variable-address generation 3-175 
statement address table 3-159 
statement input subroutine-BAGETC 3-160 
symbol processing in BDSYMB 3-164 
symbol tables 3-165 

symbol translator subroutine-BDSYMB 3-164 

system equates-$B@EQU 4-10. 

tables maintained for resolving VM addresses 3-157 

termination 3-191 

terminator overlay- BTRMNT 3-191 

unresolved operands 3-157 

virtual memory output subroutine-BBPUTC 3-161 

virtual-memory referencing 3-155 

write page 3-162 
compute stacked address, (CSA), pseudo instruction 3-260 
CONDITION keyword program-#KCNDI 3-49 
configuration (IPL) 3-3 
configuration record format 5-7 
CONFIGURE utility command-#UCNFI 3-129 
CONFIGURE utility program- #UCNFI 3-129 
console interruption (#EXMSG) 3-20 
constant 

arithmetic or character 3-162 

generated into 19-byte work area 3-162 

generator subroutine-BCFCON 3-162 

output buffer 3-162 
contents of virtual memory (DCALC) 3-270 
contents of virtual memory (interpreter) 3-202 
control code, machine instruction A-3 
control programs 

components 3-1 

functions 2-1 

system initialization (IPL) 3-1 
conventions 

core-resident module referencing 3-205 

interpreter labeling 3-205 

source module labeling 4-7 

virtual memory module referencing 3-205 
conversational I/O routines-#DPRIN 3-35 
conversion 

arithmetic constant to unpacked floating point and then to 

packed floating point 3-163 
arithmetic expressions to pseudo instruction sequences 

3-169 

disk address into a two-byte format 7-3 
specifications, interpreter 3-220 
subexpressions to pseudo instruction sequences 3-173 
virtual addresses to disk addresses 7-2 
copied program file, allocation 2-8 
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copy disk pairs 3-94 

COPY-DISK, parameters not copied in volume label 3-131 
COPY-DISK utility command (#UCDIS) 3-131 
COPY file utility overIay-#UCPLI 3-130 
COPY-HELPTEXT utility command (#UCPLI) 3-130 
COPY-LIBRARY utility command (#UCPLI) 3-182 
COPY-SYSTEM utility command (#UCPLI) 3-130 
COPY volume utility program-#UCDIS 3-131 
core 

address zero branch (#ZUTMO) 3-145 
allocation, expanded 3-206 
configuration, relative paging area 2-8 
dump, execution time 7-1 
dump, how to lay out at execution-time 7-7 
dump option (CD), operating procedure 6-1 
dump of a specific program module 6-17 
index table (CIT)-#GUFUD 3-22 
map 

' #KRMOV 3-83 
DCALC (with CRT) 3-272 
DCALC termination 3-276 
interpreter (8K system) 3-207 
maintenance utility, example 3-146 
RUN program name, example (8K system) 3-156 
save/restore core (NPAUSE) 3-14 
system loader (NBLOAD) 3-16 
system nucleus 3-4 
work file update/crusher 3-21 
page location, determine (#SFLOA) 3-225 
paging area 

general description 2-8 
specifications 3-206 
paging, DCALC mode 3-272 
patch option (CP), operating procedure 6-3 
core-resident 

interpreter instruction referencing 3-205 
module referencing conventions 3-205 
PMC statement processors 3-177 
rou tines- #BCOMP 3-153 
routines, compiler 3-159 
routines of DCALC-#VODKA 3-269 
CP-core patch (#ZUTMO) 3-145 
CP-core patch option, operating procedure 6-3 
CRDBSY (#DREAD) 3-39 
create 

library directories (#UALLO) 3-128 

VTOC library file (#UALLO) 3-128 

VTOC work area file 3-128 
cross-reference label list 4-7 
CRT 

calling routine (NSPRNT) 3-10 
I/O routine-#DSPLY 3-41 
line segment table (CLST) 3-67 
output buffer (DCALC) 3-276 
physical IOCS (DCALC)-#VCRTI 3-276 
crush work file 3-27 

CSA (X ( 3E'), compute stacked address, pseudo instruction 

3-260 
current 

data file, allocation 2-7 

entry-BFSCEN used in BFSCAN 3-168 

program file, allocation 2-7 

segment, terminating character 3-160 
cursor control-#DSPLY 3-42 
cylinder 

addressing (DL2ICS) 3-101 

addressing (DL4ICS) 3-101 

zero equates-@CY0EQ 4-8 
C2DEC5 usage in #UDISV 3-144 
C4BIN2 (#UATRC) 3-126 



data 

area formats, section 5 5-1 
block out of order in #GUFUD 3-27 
block packing routine-GUFPAK 3-27 
block transfer (#SFLOA) 3-225 

elements, convert and stack sequentially occurring 3-218 
elements, output on system printer (FZUPRT) 3-220 
file 

attributes 3-45 

buffers in virtual memory 3-194 

data portion, record or line 2-8 

lines, description 1-1 
keys (DEPRES) 3-37 
list constants 3-162 
portion, work file 2-8 
register parity error (DEPRES) 3-38 
syntax checker-#SDSYN 3-34 
tracks, alternate assignment 3-125 
DATA 

PMC syntax 3-181 

RECOVERED message (#UATRC) 3-1 26 

statement, PTF command 6-6 

usage in PTF utility program 3-138 
date processing (IPL) 3-3 
DC-disk compare in #ZUTMO 3-145 
DC-disk compare option, operating procedure 6-3 
DCA (X'6A'), define constant address, pseudo instruction 3-^ 
DCALC (desk calculator) 

core and VM map (with CRT) 3-272 

cycle 3-269 

equate-@V@EQU 4-10 

error messages- VERROR 3-27 3 

flowchart 3-277 

initialization-#VLOAD and VINITI 3-272 

mode of operation, description 1-2 

program, detailed description 3-269 

program, general description 2-4 

termination core map 3-276 

termination- VSAWRT, #VXITI 3-276 
DCDOUT-card punch IOCR 3-105 
DCF (disk control field) format 3-8, 5-29 
DD-disk dump in #ZUTMO maintenance utility monitor 3-1 
DD-disk dump option, operating procedure 6-2 
DDL (X 4 6C'), define data linkage, pseudo instruction 3-264 
DEEXIT-enable keyboard and exit (DEPRES) 3-38 
DEF, PMC syntax 3-181 
default values, array dope vector 3-193 
defective data track 3-125 
defective track addresses, IOCS 3-5 
define constant address, (DCA), pseudo instruction 3-263 
define data linkage, (DDL), pseudo instruction 3-264 
define work area, (DWA), pseudo instruction 3-265 
delete and insert file to be copied (#UCPLI) 3-130 
delete list passed (#GUFUD) 3-26 
delete parameter list format 5-29 
DELETE keyword program-#KDELE 3-50 
DELETE parameter in #UDELV 3-142 
deletion of a range of lines<GUFUPD) 3-23 
delimiter, character string 3-163 
delimiter (valid) sequence scan (#SDSYN) 3-34 
DEPRES-keyboard IOCR 3-37 
desk calculator (DCALC) 

#VLOAD, #VODKA, #VXITI flowchart 3-277 

detailed description 3-269 

equates-@V@EQU 4-10 

general description 2-4 

mode of operation, description 1-2 
destination field, element unstacking 3-210 
determine disk drive specified (#UDISV) 3-144 
DETEST- test command key (DEPRES) 3-38 
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device-type code (DLPTYP) 3-103 
DFCOUT-card punch physical IOCS 3-123 
DFKEYN-keyboard physical IOCS 3-214 
DFPRNT- system printer physical IOCS 3-214 
DFRDIN-card reader physical IOCS 3-215 
diagnostic aids, section 6 

address stop procedure for program loading 6-17 

finding a library file on disk 6-15 

how to use maintenance map 6-16 

I/O parameter list save area 6-10 

maintenance utility aid program 6-1 

patching a disk resident system program 6-14 

PTF command 6-6 

stand-alone dump 6-12 
DIM, PMC syntax 3-182 
directory 

display (LISTCAT) 3-69 

filename, block 5-17 

library file format 5-15 

list of system components 4-1 

null 5-15 

password 5-16 

source module labeling conventions 4-7 
system equates 4-7 

1 format, file 5-21 

2 format, file 5-23 

DISABLE keyword program-#KENAB 3-57 
disabled BASIC statements and lines 3-66 
disk 

address conversion into two-byte address 7-3 

address specifications for utility dump 7-3 

addresses of virtual memory 7-1 

block boundaries, records 2-1 1 

block (sectors), work file 2-8 

block, segment 2-11 

and card file allocation for arrays 3-194 

or card file close or reset (SFRSET) 3-218 

compare option (DC), operating procedure 6-3 

control field (DCF) format 3-8, 5-28 

data file, find (#SFFIN) 3-223 

data files logical IOCS-#SFLOA 3-225 

dump, execution time 7-1 

dump option (DD), operating procedure 6-2 

dump sample of system program file directory 6-16 

dump of a specific program module 6-17 

four-track logical IOCS interface- BVDL4T 3-177 

initialization (#UINIT) 3-135 

label print, VTOC-DISPLAY (#UDISV) 3-144 

logical IOCS— DL2ICS 3-101 

organization, general description 2-4 

parameter bit format 5-28 

patch (#ZUTMO) 3-147 

patch option (DP), operating procedure 6-3 

resident PMC generators allocation 3-156 

resident system program, patching 6-14 

statistical data recording format 5-9 

surface analysis 3-135 

system management programs 3-59, 5-6 

volume format 5-6, 2-4 

working storage for programs, allocation 2-6 

write option (DW), operating procedure 6-4 
DISK files, build a user directory entry for 3-45 
DISK parameter in COPY command 3-131 
displacement into track usage mask 3-1 19 
display data (information) 3-143 
display directory (LISTCAT) 3-69 
display error messages in DCALC (VERROR) 3-273 
display parameter in VTOC-DELETE (#UDELV) 3-142 
display VTOC label information 3-143 
DISPLAY keyword program-#KDISP, #KDOVR 3-53 
DI V (X'OC), divide, pseudo instruction 3-23 1 



divide, (DIV), pseudo instruction 3-231 
DKDISK, $DISKN-resident disk physical IOCS 

error recovery procedure (ERP) section 3-6 

flowchart 3-8 

program description 3-4 
DLFPRT-Iine printer physical IOCR 3-214 
DLPCRT-label for output on CRT 3-103 
DLPMPR-label for output on matrix printer (MP) 3-103 
DLPRNT-line printer interface 3-103 
DLPSPT-label for output on system printer 3-103 
DLPTYP usage in DLPRNT 3-103 
DL2ICS-disk logical IOCS 3-101 
DL2RAD usage in DL2ICS 3-101 
DL4ICS~system work file IOCS 3-101 

double matrix function call, (MF2), pseudo instruction 3-237 

DP-disk patch in #ZUTMO 3-145 

DP-disk patch option, operating procedure 6-3 

DPL (disk parameter list) format 5-28 

DPL test (#UPACK) 3-137 

DPRINT-matrix printer IOCR 3-35 

DPRINT, usage in NSPRNT 3-10 

DREADN (#DREAD) 3-39 

DSDOWN-error routine for CRT 3-42 

DSPCMD(#DSPLY) 3-43 

DSPCMD-clear CRT screen 3-41 

DSPLYN (#DSPLY) 3-41 

DSPLYN-print on CRT (#DSPLY) 3-41 

DSPLYN, usage in NSPRNT 3-10 

DSPYMP-print on both CRT and matrix printer 3-41, 3-42 
dump procedures, finding a library file on disk 6-15 
dump, stand-alone 6-12 

DVPRSC-DCALC keyboard physical IOCS 3-274 
DVPRSC-DCALC keyboard physical IOCS flowchart 3-275 
DW-disk write, copy sector in #ZUTMO 3-145 
DW-disk write option, operating procedure 6-4^ 
DWA (X'6A') S define work area, pseudo instruction 3-265 



ECMANL (#ECMAN) 3-28 

EDIT keyword program-#KEDIT 3-55 

element 

length in arrays 3-193 

stacking subroutine-ISTACK 3-210 

unstacking subroutine-IUSTAK 3-210 

enable 

keyboard data entry (FZXINP) 3-218 

keyboard (DCALC) 3-276 
ENABLE keyword program-#KENAB 3-57 
end of 

file record format 5-22 

forms, process (DPRINT) 3-36 

line(#SDSYN) 3-34 

page, (EOP), pseudo instruction 3-263 

program, (EOF), pseudo instruction 3-266 

statement code (#GUFUD) 3-22 

statement (EOS) detected (#ECMAN) 3-28 
END 

PMC syntax 3-182 

statement, compiler terminator 3-191 

statement, PTF command 6-9 
enter-minus key (DEPRES) 3-37 
enter-plus key (DEPRES) 3-37 
ENTER+ function, label trace of execution 3-273 
ENTER keyword program-#KDNTE 3-59 
entries 

branch address table 3-197 
compile-time stack 3-169 
FZZVMP 3-222 
INTERP 3-206 
I/O record 3-45 
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entries (continued) 
IPGMDL 3-209 
maintenance map 6-16 
EOF (end of file record) format 5-22 
EOF (X l 7CP), end of program, pseudo instruction 3-265 
EOP (end of page) processing 3-206 
EOP (X'68*), end of page, pseudo instruction 3-262 
EOS detected (#ECMAN) 3-28 
EQU, modules composed of equates 4-7 
erase key (DEPRES) 3-37 
ERP {see error recovery procedure) 
error 

conditions 

allocation of data file buffers 3-194 

data types in element unstacking 3-210 

DATA statement rejection 6-9 

END statement rejection 6-9 

HDR statement rejection 6-7 

PTF command rejection 6-6 

PTF statement rejection 6-7 

RESUME 3-89 

SUSPEND 3-95 

terminate compilation 3-191 
exit in #UPTFI 3-139 

flowchart, system I/O and message interface 3-11 

history log entry ($HISTE) 3-9 

history log format 5-8 

logging work area 3-9 

messages 

DCALC (VERROR) 3-27 3 

equates, general-@VOLEQ 4-9 

program- #ERRPG 3-18 
procedures 

CRDBSY 3-39 

DEPRES 3-38 
program interface- NCAERK, $CAERK 3-10 
recovery procedure 

DCALC CRT 3-276 

DCDOUT 3-105 

DKDISK 3-6 
598 (#UATRC) 3-126 
execution 

overlay programs, interpreter 3-223 
subroutines (miscellaneous) 3-222 
execution-time 
core dump 

fixed core addresses 7-8 

how to lay out 7-7 

procedure 7-1 
disk dump of virtual memory 7-1 
file checker (SFADFR) 3-2 1 8 
EXMSGS (#EXMSG) 3-20 

EXPAND-LIBRARY utility command (#UEXLI) 3-133 
EXPAND utility program- #UEXLI 3-133 
expanded core utilization 3-206 

exponent conversion (internal format to decimal), table 3-267 
exponent (power), floating-point arithmetic 3-266 
exponentiate (power), (PWR), arithmetic operation, pseudo 
instruction 3-232 
extend to 103 cylinders 3-135 
extended mnemonic codes A-l 
external data file 

activation (SFADFR) 3-218 

close or reset (SFRSET) 3-218 

input on element from (SFGETR) 3-2 1 8 

output on element (SFPUTR) 3-219 
EXTRACT keyword program— #KEXTR 3-59 



FCI (X'16 1 ), function call-indirect, pseudo instruction 3-235 
field length 

element stacking 3-210 

element unstacking 3-210 

file 

buffer allocation routine 3-199 
copy (#UCPLI) 3-130 

directory 1, allocation 2-8 # 
directory 1 format 5-21 

directory 1 (I/O information record), general description 
2-11 

directory 2 format 5-23 
index table (FIT) 

description 2-7 

format 5-20 
library 

addresses and tables-@DIREQ 4-9 
reorganization (#SPACK) 3-123 
(system library file), allocation 2-6 
protection, track usage mask 2-5 
filename directory 

block format 5-17 
entry subroutine-STUFID 3-1 17 
general description 2-6 
search subroutine (SRCHFN) 3-1 15 
filename, user file 2-6 
find 

disk data file-#SFFIN 3-222.2 

disk data file-#SFFIN flowchart 3-224 

specified file subroutine— SFINDF 3-1 1 1 

volume-ID subroutine-SVOLID 3-113 
finding a library file on disk 6-15 
first 

entry in branch address table 3-196 

image segment (code X'04') 3-220 
FIRST parameter (#KCHAN) 3-47 
FIT (file index table) 

format 5-20 

general description 2-7 

usage in GUFSCH 3-24 

usage in GUFPAK 3-24, 3-26 

usage in GUFUPD (work file update) 3-22 
fixed 

addresses for system nucleus— @FXDEQ 4-8 

addresses in virtual memory-$V$EQU 4-10 

core addresses in execution-time core dump 7-8 

equate module ($I$EQU) referencing 3-205 
floating-point 

arithmetic 3-266 

numbers, example 3-267 
flowcharts 

abort current operation routine-NABORT, $CAIPL, $CARPL, 

$CABLO 3-13 
ALLOCATE keyword program-#KALLO 3-46 
ALTERNATE-TRACK utility program-UATRC 3-126 
ASSIGN utility program-#UALLO 3-128 
BASIC statement syntax checker- #SFSYN 3-33 
card punch IOCR-DCDOUT 3-106 
card punch physical IOCS (DFCOUT) 3-216 
card reader IOCR-#DREAD 3-40 
card reader physical IOCS (DFRDIN) 3-216 
CHANGE keyword program-#KCHAN 3-48 
command key processor— #EFKEY 3-30 
compiler-#BCOMP 

CONDITION keyword program-#KCNDI 3-49 
CONFIGURE utility program-#UCNFI 3-129 
COPY file utility overlay (#UCPLI) 3-130 
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flowcharts (continued) 

COPY volume utility program-#UCDIS 3-132 
CRT IOCR-#DSPLY 3-42 
crush and reorder operations 3-25 
data syntax checker-#SDSYN 3-34 
DELETE keyword program-#KD2LE 3-5 1 
desk calculator (DCALC)-#VLOAD, #VODKA, 

#VXITI 3-277 
disk IOCS routines (DL2ICS, DL4ICS) 3-102 
EDIT keyword program- #KEDIT 3-53 
ENABLE/DISABLE keyword program-#KENAB 3-58 
error message program-#ERRPG 3-19 
error program interface- NCAERK, $CAERK 3-1 1 
EXPAND utility program-#UEXLI 3-134 
EXTRACT (#KEXTR) 3-40 
filename directory entry subroutine 3-117 
find disk data file-#SFFIN 3-224 
find specified file subroutine-SFINDF 3-111 
find volume-ID subroutine-SVOLID 3-113 
HELP keyword program-#KHELP 3-63 
INITIALIZE disk utility program-#UINIT 3-1 35 
inquiry request routine-NQUIRY 3-12 
I/O error logging routine-NERLOG, $ERLOG 3-1 1 
IPL bootstrap loader-#MLOAD 3-3 
IPL interface-MOPPET 3-3 
interpreter-#INSTD, #INLNG 3-212 
keyboard IOCR-DEPRES 3-38 
keyboard physical IOCS (DCALC)-DVPRSC 3-275 
keyword table entry-#ECMAN 3-29 
line printer interface- DLPRNT 3-104 
LIST keyword program-#KLIST 3-68 
LISTCAT keyword program-#KCTLO 3-70 
loader-#LOADR 3-199 

logical IOCS for disk data files-#SFLOA 3-225 
LOGON/OFF keyword program- #KLO GO 3-72 
maintenance program load trace-#ZTRAC 3-44 
maintenance utility monitor- #ZUTMO 3-147 ' 
matrix printer IOCR-DPRINT 3-36 
MERGE keyword program (#KMERG) 3-74 
MOUNT keyword program-#KMOUN 3-75 
nucleus initialization program— #MIPPE 3-3 
null directory entry subroutine 3-116 
pack file library subroutine-#SPACK 3-123 
PACK utility program_#TJPACK 3-1 37 
PASSWORD keyword program-#KPASW 3-76 
printer and error program interface— $ERLOG, $SPRNT, 

$CAERK 3-11 
program interruption processor 3-20 
PROTECT keyword program-#KPRTC 3-77 
PTF utility program- #UPTFI 3-1 39 
PULL/POOL keyword program-#KPOOL 3-79 
READ keyword program-#KREAD 3-8 1 
RELABEL keyword program-#KRLAB 3-82 
REMOVE keyword program-#KRMOV 3-84 
RENAME keyword program-#KNAME 3-86 
RENUMBER keyword program-#KRNUM 3-88 
resident disk physical IOCS-DKDISK, $DISKN 3-4 
RESUME keyword program- #KRSUM 3-90 
RUN/STEP/TRACE keyword program-#KRUNI 3-9 1 
save/ rest ore core-NPAUSE, $RSTR, $PAUSD 3-15 
SAVE keyword program 3-93 

search filename directory subroutine— SRCHFN 3-115 
search null directory subroutine-SURCHN 3-118 
search password directory subroutine 3-114 
SET keyword program -#KSETI, #KSOVR 3-94 
SUSPEND keyword program-#KSSPN 3-96 
SYMBOLS keyword program -#KSYMB 3-98 
system initialization (IPL) 3-3 

system loader-NBLOAD, $BLOAD, $RLOAD, $LOADR 
3-17 

system printer physical IOCS-DFPRNT 3-214 
track usage mask utility subroutine-UTKUSE 3-120 



flowcharts (continued) 

VM dump overlay-#ZDUMP 3-150 
VTOC-DELETE utility program 3-1 42 
VTOC-DISPLAY utility program-#UDISV 3-144 
VTOC utility subroutine (UTVTOC) 3-122 
WIDTH keyword program- #KWIDT 3-99 
work file PUT subroutine-GPUTIT 3-107 
work file update, crush, and reorder 3-25 
work file update/crusher-#GUFUD 3-26 

flowcharting techniques 1-3 

FN0 (X'12'), function call-no argument, pseudo instruction 
3-234 

FN1 (X'14'), function call-one argument, pseudo instruction 
3-234 

FOR, PMC syntax 3-182 

FOR (X'4E'), initiate FOR loop, pseudo instruction 3-247 
formats 

arithmetic packed-decimal 3-268 

arithmetic unpacked-decimal 3-268 

BASIC program file structure 5-18 

character field 3-163 

configuration record 5-7 

cylinder zero (#UINIT) 3-1 36 

data record, general description 2-1 1 

DCF (disk control field) 3-8 

delete parameter list 5-29 

directories to system library file 5-15 

disk address conversion to two-byte address 7-3 

disk control field 5-29 

disk parameter list 5-28 

disk statistical data recording 5-9 

disk volume 5-6 

end of file record 5-22 

error history log 5-8 

file directory 1 5-2 1 

file directory 2 5-23 

file index table 5-20 

filename directory block 5-17 

help text records 5-26 

individual volume statistics and master SIO table 5-9 

internal to decimal 3-267 

keyboard-generated data files 2-8 

nondisk statistical data recording 5-1 0 

NUCLES (system communication area) 5-2 

null directory 5-15 

outboard recording 5-1 1 

password directory 5-16 

print parameter list 5-27 

pseudo instruction 3-229 

sector 3-7 

segment descriptor field 5-22 
system 

communication area (NUCLES) 5-2 
files, description 2-4 
help text file 5-25 
library file 5-15 
track 3-7 

user program data files 2-8 
volume label 5-12 

volume table of contents (VTOC) 5-14 

IFQLRND-random number generator 3-222.2 
FQSRND-random number generator 3-222.2 
fraction, floating-point arithmetic 3-266 
function call 

indirect (FCI) pseudo instruction 3-235 
no argument (FN0) pseudo instruction 3-234 
one argument (FN1) pseudo instruction 3-234 
operations (see also pseudo instructions) 3-234 
FZAMIO-matrix I/O routines 3-221 
FZCMPR-matrix print routines 3-221 
FZDMIP-keyboard input to a matrix 3-221 



X-8 



Licensed Material— Property of IBM 



Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 



FZLINT-trace line numbers subroutine 3-222 

FZSPRT-print and carrier positioning 3-219 

FZUPRT-print using image 3-220 

FZVART— trace variables subroutine 3-222 

FZXINP-keyboard input 3-2 1 8 

FZZVMP-virtual memory push/pull subroutine 3-222 



GCPACK-pack BASIC program statements 3-22 
general error message equates-@ERMEQ, @SEREQ 4-9 
generate 

stack-arithmetic-values 3-167 

stack-character expressions 3-166 

stack-update-matrix descriptor PMC sequences 3-176 

stack-variable-address PMC sequences 3-175 
generator entry point, branch 3-156 
generators, PMC 3-155 
GET 

card entry points (FZXINP) 3-2 1 9 
matrix operations (FZAMIO) 3-221 
PMC syntax 3-183 

pseudo instruction execution, label trace 3-226 
(X'52*), input data element, pseudo instruction 3-239 

GET/PUT usage in compiler 3-155 

GO 

keyword program— #KGOSL 3-6 1 

usage with RESUME (#KRSUM) 3-89 
GOSUB, PMC syntax 3-183 
GOTO 

multiple, PMC syntax 3-183 

simple, PMC syntax 3-183 
GPUERR (#KRLAB) 3-82 
GPUTIT 

usage in #KRLAB 3-82 

work file PUT subroutine 3-107 
GRABIT 

usage in 
I #KCALL 3-46.1 

#KRLAB 3-82 

work file retrieval subroutine 3-109 
I GRAPRO (#GRAPR) 3-40.1 
GUFCSH— work file crush and reorder 3-24 
GUFCWA-work area (GUFPAK) 3-26 
GUFENT initialization 3-22 
GUFPAK— pack core buffers subroutine 3-24 
GUFRDR reorder section (GUFCSH) 3-24 
GUFSCL check for input line complete (GUFCSH) 3-24 
GUFUPD-work file update 3-22 
GUU 1 1 0 usage in GUFUPD 3-23 



H 

restore core and halt (#ZUTMO) 3-145 

return to system with halt option, operating procedure 6-4 

halt 

execution, (HLT), pseudo instruction 3-261 

indicator equates-@HLTEQ 4-9 

option (H), operating procedure 6-4 

2345 6-18 
hard halt (DEPRES) 3-38 
HDR statement, PTF command 6-7 
help text file 

general description 2-7 

PTFs(#UPTFI) 3-138 
help text records format 5-26 
HELP keyword program-#KHELP 3-62 
HLT (halt execution) 

processing 3-206 

(X'04*), pseudo instruction 3-261 
holes in virtual memory 3-1 5 7 
how to 

lay out 

execution-time core dump 7-7 
virtual memory (long precision) 7-7 



virtual memory (standard precision) 7-3 
take a sequential disk dump of virtual memory 7-1 
use the FE map 6-16 
I$PARM parameter 3-219 
IBM-assigned command key functions 5-30 
identification of programs in FE map 6-16 
identification of program numbers 6-16 
IF (arithmetic), PMC syntax 3-184 
IF (character), PMC syntax 3-184 
| IF (character, string), #PMC syntax 3-184 
image conversion specifications (FZUPRT) 3-220 
image printing, interpreter 3-220 
image statement exception 3-159 

image statement header(:), (IMH), pseudo instruction 3-262 
IMAGE (:), PMC syntax 3-184.1 

IMH execution in trace line number mode (FZLINT) 3-222 

IMH (image statement header) processing 3-206 

IMH (X ( 66*), image statement header, pseudo instruction 3-262 

IMINIT-interpreter initiator 3-205 

index cursor to next line-DSINDX 3-42 

index to error message text (DCALC) 3-273 

individual volume statistics and master SIO table format 5-9 

INI (X { 56')> initiate keyboard input, pseudo instruction 3-240 

initialization, compiler 3-155 

initialization of elements in virtual memory— LVINIT 3-194 
initialize BASIC compiler 3-179 
INITIALIZE disk utility program- #UINIT 3-1 34 
initialized disk size, VTOC-DISPLAY (#UDISV) 3-144 
initializing arithmetic elements 3-195 
initializing array elements 3-195 
initiate FOR loop, (FOR), pseudo instruction 3-247 
initiate keyboard input, (INI), pseudo instruction 3-240 
input data element, (GET), pseudo instruction 3-239 
input an element from an external data file-SFGETR 3-218 
input information to SUSPEND 3-95 
input line elements, convert and stack 3-219 
input/ output operations {see also pseudo instruction) 3-239 



input parameters 




to BAGETC 


3-160 


to BDSYMB 


3-165 


to BRATAB 


3-177 


to INTERP 


3-207 


to ISTACK 


3-210 


to 1USTAK 


3-211 


to LSORTA 


3-197 


input text pointers 



BECSCN 3-166 
BFSCAN 3-168 
BLISTA 3-176 



BMATXR 3-176 
INPUT, PMC syntax 3-184.1 
INPUT statement execution (FZXINP) 3-218 
inquiry request during MAT INPUT statement 3-221 
inquiry request routine-NQUIRY, $CIENT, $UNMSK 3-12 
inquiry request switch (DEPRES) 3-37 
interface to main IPL program (IPL) 3-3 
interface to system printer IOCR-NSPRNT, $SPRNT 3-10 
internal floating-point 3-26> 
INTERP, common work areas 3-208 
INTERP entry points 3-206 
INTERP-interpreter executive 3-206 
interpretation, I/O parameter list area 6-10 
interpreter 

#INSTD, #INLNG flowchart 3-212 

assembly listings 3-201 

common work areas (INTERP) 3-208 

core map (8k system) 3-207 

core resident routines- #INSTD, #INLNG 3-201 

cycle 3-201 

detailed program description 3-201 
execution overlay programs 3-222.1 
executive-INTERP 3-206 
expanded core utilization 3-206 
fixed equates-$I$EQU 4-10 

Index X-9 
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interpreter (continued) 

general description 2-10 

initiator-IMINIT 3-205 

labeling conventions 3-205 

parameter I$PARM 3-220 

program description conventions 3-205 

program general description 2-4 

virtual-memory module referencing conventions 3-205 
virtual memory resident execution subroutines- 
#FMSTD and #FMLNG 3-202 

interrupt identification (#EXMSG) 3-20 

intrinsic functions 3-165 

I/O 

error logging routine-NERLOG, $ERLOG 3-9 

execution subroutines 3-214 

functions- DPRINT 3-35 

information record (file directory 1) 2-11 

information sector, allocation and description 2-8 

input from data recorder (DFRDIN) 3-216 

to keyboard (DFKEYN) 3-214 

to line printer 3-214 

to matrix printer 3-214 

output to data recorder (DFCOUT) 3-123 

parameter list, modification of nucleus to save 6-1 1,6-12 

parameter list, procedure to display 6-11 

parameter list, procedure to save ' 6-11 

parameter list, sample listing 6-1 1 

parameter list save area, general description 6-10 

routines 

card punch 10CR-DCDOUT 3-105 

card reader-#DREAD 3-39 

conversational- #DPRIN 3-35 

CRT-#DSPLY 3-41 

error logging- NER LOG, $ERLOG 3-9 

keyboard-DEPRES 3-37 

line printer interface-DLPRNT 3-103 

matrix printer-DPRINT 3-35 

printer functions-DPRINT 3-35 

resident disk physicai-DKDISK, $DISKN 3-4 

system printer-NSPRNT, $SPRNT 3-10 
IPGMDL entry points 3-209 
IPGMDL-paging subroutine 3-209 
IPL (initial program load) 

bootstrap loader— #MLO AD 3-2 
flowchart 3-3 
interface-MOPPET 3-2 
ISTACK-element stacking subroutine 3-210 
ISTACK input parameters 3-210 
IUSTAK 

element unstacking subroutine 3-210 
input parameters 3-211 
output parameters 3-211 
IZCOMM, interpreter core address referencing 3-205 



KALLOC (#KALLO) 3-45 

KCALLN (#KCALL) 3-46.1 

KCHANG (#KCHAN) 3-47 

KCNDIT (#KCNDI) 3-49 

KCTLOG (#KCTLO) 3-69 

KDELET (#KDELE) 3-50 

KDISPL (#KDISP) 3-53 

KDNTER (#KDNTE) 3-59 

KDOVRL (#KDOVR) 3-53 

KEDITN (#KEDIT) 3-55 

KENABL (#KENAB) 3-57 

KEXTRC ( #KEXTR) 3-59 

key functions (DEPRES) 4-37 

key functions, command, IBM-assigned 5-30 



keyboard 

display on system printer (DFKEYN) 3-214 
enable for data entry (FZXINP) 3-218 
enable (DCALC) 3-275 
generated data files 
format 2-8 
general description 2-6 
organization 2-7 
input-FZXINP 3-218 
input to a matrix-FZDMIP 3-221 
interrupt (DEPRES) 3-38 
IOCR-DEPRES 3-37 
physical IOCS-DVPRSC (DCALC) 3-275 
KEYS keyword program-#KKEYS 3-64 
keyword 

commands, description 1-1 
entry table (#ECMAN) 3-28 
general description 2-1 
programs 

ALLOCATE (#KALLO) 3-45 
CHANGE (#KCHAN) 3-47 
CONDITION (#KCNDI) 3-49 
DELETE (#KDELE) 3-50 
DISABLE (#KENAB) 3-47 
DISPLAY (#KDISP, #KDOVR) 3-53 
EDIT (#KEDIT) 3-55 
ENABLE (#KENAB) 3-57 
ENTER (#KDNTE) 3-59 
EXTRACT (#KEXTR) 3-59 
GO(#KGOSL) 3-61 
HELP (#KHELP) 3-62 
KEYS (#KKEYS) 3-64 
LIST (#KLIST) 3-66 
LISTCAT (#KCTLO) 3-69 
LOGON/OFF (#KLOGO) 3-7 1 
MERGE (#KMERG) 3-73 
MOUNT (#KMOUN) 3-75 
PASSWORD (#KPASW) 3-76 
PROTECT (#KPRTC) 3-77 
PULL/POOL (#KPOOL) 3-78 
READ (#KREAD) 3-81 
RELABEL (#KRLAB) 3-81 
REMOVE (#KRMOV) 3-83 
RENAME (#KNAME) 3-85 
RENUMBER (#KRNUM, #KROVL) 3-87 
- RESUME (#KRSUM) 3-89 
RUN/STEP/TRACE (#KRUNI) 3-9 1 
SAVE(#KSAVE) 3-92 
SET (#KSETI, #KSOVR) 3-94 
SUSPEND (#KSSPN) 3-95 
SYMBOLS (#KSYMB) 3-96 
WIDTH (#KWIDT) 3-99 
WRITE (#KWRIT) 3-100 
syntax {see syntax, PMC) 
KGOSLO (#KGOSL) 3-61 
KHELPN (#KHELP) 3-62 
KKEYSP (#KKEYS) 3-64 
KLISTN (#KLIST) 3-66 
KLOGON (#KLOGO) 3-71 
3-73 
3-75 
3-85 
3-76 
3-78 
3-77 
3-81 
3-81 
3-83 
3-87 
3-89 



KMERGE (#KMERG) 
KMOUNT (#KMOUN) 
KNAMES (#KNAME) 
KPASWD (#KPASW) 
KPOOLN (#KPOOL) 
KPRTCT (#KPRTC) 
KREADN (#KREAD) 
KRLABL (#KRLAB) 
KRMOVE (#KRMOV) 
KRNUMB (#KRNUM) 
KRSUME (#KRSUM) 
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KRUNIT (#KRUNI) 3-91 

KSAVEN (#KSAVE) 3-92 

KSOVRL (#KSOVR) 3-94 

KSSPND (#KSSPN) 3-95 

KSYMBL (#KSYMB) 3-97 

KW1DTH (#KWIDT) 3-99 

KWRITE (#KWRIT) 3-100 



label 

list, cross-reference 4-7 
source module 4-7 
trace 

ADD pseudo instruction execution 3-226 
ENTER+ function (DCALC) 3-273 
GET pseudo instruction 3-226 
S/N function 3-273 
labeling conventions 
compiler 3-145 
interpreter 3-205 
LALLOC- allocation of arrays in virtual memory 3-193 
LCB (list control block) 3-66, 3-67 
LDFILE- allocation of data file buffers in VM 3-194 
LET 

PMC syntax 

arithmetic, multiple 3-184.1 
arithmetic, simple 3-184.2 
character 3-184.2 
| character, multiple, string 3-184.2 

library directory creation (#UALLO) 3-128 
library file, procedure to find 6-15 
library 

map and test, M 3-145 
mapping option 6-4 
mapping overlays 3-150 

line 

addition (GUFUPD) 3-23 

numbers 

branch address table 3-197 
virtual-memory -location order 3-196 

printer interface-DLPRNT 3-103 

printer physical IOCR-DCFPRT 3-214 

record 2-8 

replacement (GUFUPD) 3-23 
list control block (LCB) 3-66, 3-67 
LIST keyword program- #KLIST 3-66 
LISTCAT keyword program-#KCTLO 3-69 
load GUFUDI (#UALLO) 3-128 
loader 

#LOADR flowchart 3-199 

second phase of compilation-#LOADR 3-193 
lock and read only indicator table 3-222 
logical 

division of system programs and components 2-1 

IOCS for disk data files-#SFLOA 3-225 

operations (see also pseudo instructions) 3-244 

read or write operation, IOCS 3-5 

rules for converting arithmetic expressions to pseudo 
instruction sequences 3-169 
LOGON/OFF keyword program-#KLOGO 3-71 
long precision 

execu tion equ ates- $I@LEQ 4-1 1 

floating-point data 3-266 

subroutines 3-155 
LRADDR- resolution of the branch address table 3-196 
LSORTA-sorting the branch address table 3-197 
LVINIT- initialization of elements in virtual memory 3-194 



M 

library map and test (#ZUTMO) 3-145 

library mapping option 6-4 
machine 

configuration, minimum 1-2 

instruction formats A-2 

instructions reference table A-l 

mnemonic operation codes A-l 
maintenance 

map, how to use 6-16 

program laod trace-#ZTRAC 3-44 

utilities 3-145 

utilities, stand-alone dump 6-12 
utility aid (#EXMSG) 3-20 
utility aid program- #ZUTMO 6-1 
utility aid program, operating procedures 

CD-core dump 6-1 

CP-core patch 6-3 

DC-disk compare 6-3 

DD-disk dump 6-2 

DP-disk patch 6-3 

DW-disk write 6-4 

H-halt 64 

M-library mapping 6-4 

R-return to operating system 6-4 

T- trace 6 A 

VM— virtual memory dump 6-2 
utility core map example 3-146 

utility monitor-#ZUTMO, detailed program description 
3-145 

map of virtual memory 7-5 
mapping overlays, library 3-150 
MAT GET, PMC syntax 3-186 

MAT GET statement matrix operations (FZAMIO) 3-221 
MAT INPUT 

entry points (FZXINP) 3-219 

PMC syntax 3-186 

statement matrix operations (FZDMIP) 3-221 
MAT, PMC syntax 3-185 
MAT PRINT, PMC syntax 3-187 

MAT PRINT statement matrix operations (FZCMPR) 3-221 

MAT PRINT USING, PMC syntax 3-187 

MAT PRINT USING statement matrix operations 

(FZCMPR) 3-221 
MAT PUT, PMC syntax 3-188 

MAT PUT statement matrix operations (FZAMIO) 3-221 
MAT READ, PMC syntax 3-188 

MAT READ statement matrix operations (FZAMIO) 3-221 
matrix 

end of row (mask X'20') 3-221 
inversion/determinant-#FISTD, #FILNG 3-222.1 
I/O routines-FZAMIO 3-221 

operations for arrays referenced by MAT INPUT 3-221 

print routines-FZCMPR 3-221 

printer calling routine (NSPRNT) 3-10 

printer I/O routine (DFPRNT) 3-214 

printer IOCR-DPRINT 3-35 

reference PMC subroutine-BMATXR 3-176 

scalar multiply, (MSM), pseudo instruction 3-233 
MERGE keyword program-#KMERG 3-7 3 
message table entry (#ERRPG) 3-18 
method to activate address stop 6-17 
method of operation section 2 2-1 

MF1 (X'18'), single matrix function call, pseudo instruction 
3-236 
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MF2 (X'lA*), double matrix function call, pseudo instruction 
3-237 

MF3 (X'lC), triple matrix function call, pseudo instruction 
3-238 

microfiche assembly listing directory 4-1 

minimum machine configuration 1-2 

miscellaneous execution subroutines 3-222 

miscellaneous operations (see also pseudo instructions) 3-261 

mnemonic operation codes (machine) A-l 

modification of nucleus to save I/O parameter lists 6-1 1, 6-12 

modify volume ID table entries (#UCNFI) 3-129 

modules composed of equates 4-7 

MOPPET-IPL interface 3-2 

MOUNT keyword program-#KMOUN 3-75 

MPY (X'OA'), multiply, pseudo instruction 3-23 1 

MSM (X'lE'), matrix scalar multiply, pseudo instruction 3-233 

multiple sector transfer operations (#SFLOA) 3-225 

multiply, (MPY), pseudo instruction 3-231 



NABORT, $CAIPL, $CARPL, $CABLD 3-12 
NBLOAD 

core map 3-16 

system loader 3-16 
NBLRTN (NBLOAD) 3-17 
NBLZTR (NBLOAD) 3-17 
NCABLD (NABORT) 3-1 3 

NCAERK, $CAERK-error program interface 3-10 

NC AIPL (NABORT) 3-1 3 

NCIENT (NQUIRY) 3-13 

NCIEXT (NQUIRY) 3-13 

NEG (X'10*), negate, pseudo instruction 3-232 

negate (NEG) pseudo instruction 3-232 

negative fraction, floating point arithmetic 3-266 

NERLOG, $ERLOG-I/0 error logging rou tine 3-9 

NERLOG overlay flowchart 3-1 1 

NEROVR (NERLOG overlay) 3-1 1 

nesting stack-expression-values 3-167 

NEW file (#KALLO) 3-45 

next address switch (B$NXSW) 3-158 

NEXT PMC syntax 3-188 

nondisk statistical data recording format 5-1 0 

nonexecutable operations (see also pseudo instructions) 3-263 

NO-NUM parameter usage in LIST 3-66 

normalized decimal number 3-266 

NPAUSE-save/restore core 3-14 

NQUIRY, $CIENT, $UNMSK~inquiry request routine 3-12 
NSPRNT, $SPRNT-interface to system printer IOCR 3-10 
NUCLES-system communication area 

description 3-9 

format 5-2 
nucleus 

core map 3-4 

initialization program- #MIPPE 3-2 
IPL flowchart 3-3 

modification to save I/O parameter lists 6-1 1, 6-12 
six-byte area identifying last six program modules loaded 
by system 6-16 

null 

character constant (code X'03') 3-220 
directory entry subroutine-STORIN 3-1 16 
directory format 5-15 

directory search subroutine (SURCHN) 3-123 
image specification (code X'OT) 3-220 
print list specification (code X'02 1 ) 3-220 
NUMMSK (NQUIRY) 3-13 

NXT (X'50') perform next step, pseudo instruction 3-249 



object program 

detailed format and description (see also compiler and 
pseudo instruction) 7-1 

introduction 2-9 

virtual memory concept 2-8 
OBR (outboard recording) 

format 5-11 

NERLOG recording in 3-9 
OFF keyword program-#KLOGO 3-71 
one-star (*) library 

directory 5-11, 5-15 

general description 2-6 
operand address bucket-B$BCKT 3-168 
operands 

arithmetic expression 3-167 

unresolved in virtual memory 3-1 96 
operating procedure, maintenance utility aid program 6-1 
operation code, machine instruction A-3 
optional devices supported 1-2 
organization 

assembly listings in compiler 3-153 

assembly listings (DCALC) 3-269 

interpreter assembly listings 3-201 

keyboard-generated files 2-7 

PMC generators on disk 3-158 

program-generated files 2-7 
outboard record (OBR) 

format 5-11 

NERLOG recording of 3-9 
output 

data element, (PUT), pseudo instruction 3-239 
element to external data file-SFPUTR 3-218 
parameters from 
BAGETC 3-161 
BDSYMB 3-165 
IUSTAK 3-211 
parameters to INTERP 3-208 
overflow, automatic line number (#GUFUD) 3-26 
overlay 

library mapping 3-150 
patch of disk resident system program 6-14 
sectors transient area 3-158 
for SET (#KSOVR) 3-94 
OWNERID print, VTOC-DISPLAY (#UDISV) 3-144 



pack 

arithmetic constant (#SDSYN) 3-34 
BASIC program statements-GCPACK 3-22 
core buffers subroutine-GUFPAK 3-24 
file library subroutine~#SPACK 3-123 

PACK utility program-#UPACK 3-1 37 

packed 

data in system work file 3-23 

decimal format, arithmetic 3-268 

decimal format, floating-point arithmetic 3-266 
packing subroutine (GUFPAK) 3-24 
padding EOP instructions, description 3-162 
page 

boundary, element stacking 3-210 
boundary, element unstacking 3-210 
reference table (IPGMDL) 3-206 

pages, general description 2-8 

paging 

central work area 3-210 

general description 2-8 

module (IPGMDL) entry points 3-209 
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paging (continued) 

subroutine-IPGMDL 3-209 

subroutine tables 3-210 

subroutine work areas 3-209 

subroutines from virtual memory, example 3-226 
parameters 

allocation of arrays in virtual memory 3-193 

array allocation 3-193 

B$PCAD-PMC string core address 3-162 

B$PFNC-function code 3-161 

B$PNBY-PMC string length minus 1 3-162 

compiler/loader common area 3-192 

I$PARM print and carrier positioning 3-219 

I$PARM print using image (FZUPRT) 3-220 

input to BAGETC 3-160 

input to BDSYMB 3-165 

input to BRATAB 3-158, 3-159 

input constants passed by BCFCON 3-162 

input to INTERP 3-207 

input toISTACK 3-210 

input to IUSTAK 3-211 

output from BAGETC 3-161 

output from BDSYMB 3-165 

output to INTERP 3-208 

output from IUSTAK- 3-211 

passed to UTKUSE subroutine 3-1 19 

passed to UTVTOC subroutine 3-121 

sort input to LSORTA 3-197 

TRACE keyword statement 3-195 
parity error (DEPRES) 3-38 
password directory 

description 2-6 

format 5-16 
PASSWORD keyword program-#KPASW 3-76 
patching 

disk resident system program 6-14 

nucleus to save I/O parameter list 6-11, 6-1 2 

pause execution condition 3-14 

PAUSE, PMC syntax 3-188 

perform 

next step, (NXT), pseudo instruction 3-249 
surface analysis 3-135 
PERMANENT file (#KALLO) 3-45 
physical disk addresses, IOCS 3-5 
PIAR (pseudo instruction address register) 3-201 
PMC (pseudo machine code) 
general description 2-10 
generator 

accessing 3-155, 3-156 
address resolution 3-157 
organization on disk 3-158 
return 3-160 

statement processor overlays- #BOVLY 3-154 
instruction set 3-227 
reference list 3-228 

sequence showing branch instructions 3-161 

statement processors, general specifications 3-177 

syntax (see syntax, PMC) 
pointers for elements in virtual memory 3-165 
POOL keyword program-#KPOOL 3-78 
pooled (one-star) library, general description 2-6 
popup usage in LIST 3-66 
power (exponentiate) 

arithmetic operation, pseudo instruction 3-232 

floating-point arithmetic 3-266 
PPL (print parameter list) format 5-27 
primary data element (code X'06 J ) 3-220 
PRIMARY disk initialization (#UINIT) 3-1 35 
prime and load GUFUDI (#UALLO) 3-128 
print 

both CRT and matrix printer- DSP YMP 3-41 



print (continued) 

and carrier positioning 

codes 3-219 

FZSPRT 3-219 
CRT-DSPLYN 3-41 
DPRINT 3-35 
function in #DSPLY 3-41 
image in virtual memory (FZUPRT) 3-220 
and no space (code X'OT) 3-219 
packing message and load overlay #SPOVL 3-123 
parameter list format 5-27 
program header (NBLOAD) 3-17 
and return 

carrier (code XW) 3-219 

element function in DPRINT 3-35 

function in #DSPLY 3-41 
and space 

carrier (PRS) pseudo instruction 3-242 

full zone (code X s 02*) 3-219 

packed zone (code X'03') 3-219 
terminal error messages (#ERRPG) 3-1 8 
using image-FZUPRT 3-220 
using image (PRU) pseudo instruction 3-243 
PRINT 

full zone format (FZCMPR) 3-221 
packed zone format (FZCMPR) 3-221 
PMC syntax 3-189 

statement data output (FZSPRT) 3-219 
PRINT USING 

matrix operations (FZCMPR) 3-221 

PMC syntax 3-189 
printer 

CRT functions (#DSPLY) 3-4 1 

error (#ZTRAC) 3-44 
printer (matrix) 

calling routine (NSPRNT) 3-10 

IOCR-DPRINT 3-35 
printer output, interpreter (FZSPRT) 3-220 
priority of pseudo instructions 3-168 
procedure 

file lines, description 1-1 

file line processor-#GRAPR 3-40.1 

line checker-#SPSYN 3-34. 1 
procedure to save I/O parameter lists 6-1 1 
process 

date (IPL) 3-3 

unconditional 

ASSIGN 3-126 
UNASSIGN 3-126 
processor address table 

BHDP AT format 3-158 

description 3-156 

description of statements 1-1 
program 

descriptions, conventions of interpreter 3-205 

in FE map 6-16 

file 

file directory 1 record description 2-11 
I/O information sector description 2-8 

flowcharting techniques 1-3 

generated files 

general description 2-6 
organization 2-7 

header printing (#ZTRAC) 3-44 

interruption processor- #EXMSG 3-20 

loading, address stop procedure 6-17 

logical devision of system 2-1 

major system components 

common subroutines, detailed description 3-101 
common subroutines, general description 1-1, 2-4 
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program (continued) 

major system components (continued) 

compiler, detailed description 3-153 

compiler, general description 2-1 

control, detailed description 3-1 

control, general description 2-1 

desk calculator (DCALC), detailed description 3-269 

desk calculator, general description 1-2, 2-4 

interpreter, detailed description 3-201 

interpreter, general description 2-4 

keyword, detailed description 3-45 

keyword, general description 2-1 

loader, detailed description 3-193 

loader, general description 2-1 

utility, detailed description 3-125 

utility, general description 2-1 
minimum machine configuration 1-2 
modules, last six loaded by system 6-16 
numbers, identification 6-16 
organization, section 3 3-1 
for stand-alone dump 6-1 3 
start key (DEPRES) 3-37 
statements, general description 1-1 
supported optional devices 1-2 
System/3 BASIC system, description 1-1 
temporary fix command (see PTE commands) 
temporary fixes utility program (#UPTFI) 3-138 
PROTECT keyword program-#KPRTC 3-77 
protection, file, track usage mask 2-5 

PRS (X'60'), print and space carrier, pseudo instruction 3-242 
PRU (X'62') print using index, pseudo instruction 3-243 
pseudo instruction 

address register (PIAR) 3-201 
detailed description 

ADD (X'06') 5 add 3-230 

ADE (X'58'), activate external data file 3-240 

BNX (X'4A'), branch and suppress execution 3-246 

BRA (X'46'), branch unconditionally 3-245 

BRC (X'44'), branch on condition . 3-245 

BRD (X'48'), branch and delete function entry 3-245 

BRS (X'4C), branch to stacked address 3-246 

CLS (X'5E'), close external data file 3-241 

CMC (X'42*) compare character elements 3-244 

CME (X'40'), compare floating point values 3-244 

CSA (X^E'), compute stacked address 3-260 

DCA (X'6A'), define constant address 3-263 

DDL (X'6C') } define data linkage 3-264 

DIV (X'OC), divide 3-231 

DWA (X'6E'), define work area 3-265 

EOF (X'70'), end of program 3-265 

EOP (X'68*), end of page 3-262 

FCI (X'16'), function call-indirect 3-235 

ENO (X'12*), function call-no argument 3-234 

FNL (X'14'), function call-one argument 3-234 

FOR (X'4E'), initiate FOR loop 3-247 

GET (X'52'), input data element 3-239 

HLT (X'04'), halt execution 3-261 

1MH (X'66'), image statement header 3-262 

INI (X'56'), initiate keyboard input 3-240 

MF1 (XM8'), single matrix function call 3-236 

MF2 (X'lA'), double matrix function call 3-237 

ME3 (X'lC), triple matrix function call 3-238 

MPY (X'OA'), multiply 3-23 1 

MSM (X'lE'), matrix scalar multiply 3-233 

NEG (XM0'), negate 3-232 

NXT (X'50') 3 perform next step 3-249 

PRS (X*60), print and space carrier 3-242 

PRU (X'62 J ), print using index 3-243 



pseudo instruction (continued) 

detailed description (continued) 

PUT (X'52 1 ), output data element 3-239 

PWR (X'0E'), exponentiate (power) 3-232 

RSR (X^A'), restore internal data file pointer 3-241 

RST (X'5C), reset external data file pointer 3-241 

SA1 (X'36')> stack vector array element address 3-257 

SA2 (X'38'), stack matrix array element address 3-258 

SB1 (X'3A') 5 stack character array element address 3-259 

SCI (X'24 1 ), stack character array field 3-253 

SD0 (X'2E'), stack arithmetic array descriptor 3-254 

SD1 (X'30'), stack arithmetic array descriptor 

(redimension 1) 3-255 
SD2 (X'32'), stack arithmetic array descriptor 

(redimension 2) 3-256 
SE1 (X'22'), stack arithmetic vector element 3-250 
SE2 (X'24'), stack arithmetic matrix element 3-251 
STA (X'34*), stack virtual address 3-257 
STC (X'28'), stack character field 3-252 
STF (X'20 1 ), stack floating point value 3-249 

. STH (X'64'), statement header 3-26 1 

STX (X'3C), stack execution control code 3-259 

SUB (X'08'), subtract 3-230 

SVC (X'02'), supervisor call 3-26 1 

USC (X'2C), unstack character element 3-254 

USE (X'26'), unstack floating point element 3-252 

formats 3-229 

general description 2-10 

priority 3-168 

reference list 3-228 

sequences (see also syntax, PMC) 3-181 

set 3-227 

pseudo machine code (PMC) interpret (#ZDUMP) 3-1 49 
pseudo machine language concept (pseudo object program) 2-8 
PTF command 

finding addresses 2-6 
operating procedure 6-6 
statements 

DATA 6-9 
END 6-9 
HDR 6-7 
PTF 6-8 

PTF END statement usage in #UPTFI 3-1 38 

PTF file, general description 2-7 

PTF HDR (#UPTFI) 3-138 

PTF operating procedure 6-6 

PTF statement, PTF command 6-8 

PTF utility program-#UPTFI 3-138 

PULL/POOL keyword program-#KPOOL 3-78 

PUT, matrix operations (FZAMIO) 3-221 

PUT, PMC syntax 3-189 

PUT subroutine-GPUTIT 3-107 

PUT (X'54'), output data element, pseudo instruction 3-239 
PWR (X'OE'), exponentiate (power), pseudo instruction 3-232 



Q code, machine instruction A- 3 

question mark printing 

usage in FZDMIP 3-221 
usage in FZXINP 3-219 



restore core and return to #GUFUD (#ZUTMO) 3-145 
return to system option, operating procedure 6-6 
| random number generator 3-222.2 
read 

all volume labels (IPL) 3-3 
configuration record (#UCNFI) 3-129 



X-14 



Licensed Material— Property of IBM 



Page of LY34-000M 
Revised January 1972 
By TNL LN34-0075 



read (continued) 

in requested program (NBLOAD) 3-81 

system nucleus and I/O routines into low core (IPL) 3-3 
READ 

keyword program-#KREAD 3-81 

matrix operations (FZAMIO) 3-221 

PMC syntax 3-190 
record format (data), general description 2-1 1 
records/lines (data area of work file) 2-8 
recovery of I/O parameter list information 6-1 1 
RELABEL keyword program-#KRLAB 3-8 1 
relative disk addresses to physical 3-101 
release image (code XW) 3-220 
relocate load (NBLOAD) 3-17 
REM, PMC syntax 3-190 
REMOVE keyword program-#KRMOV* 3-83 
RENAME keyword program-#KNAME 3-85 
RENUMBER keyword program-#KRNUM 3-87 
reorder work file 3-27 
repetition sequence (#GUFUD) 3-22 
reset 

defective flag (#UATRC) 3-127 

external data file pointer, (RST), pseudo instruction 3-241 
RESET, PMC syntax 3-190 

resident disk physical IOCS-DKDISK, $DISKN 34 
resolutuion of the branch address table-LRADDR 3-196 
resolving virtual-memory addresses 3-157 

restore internal data-file pointer, (RSR), pseudo instruction 3-241 

RESTORE, PMC syntax 3-190 

RESUME keyword program-#KRSUM 3-89 

return 

carrier (code X'07') 3-219 

carrier on condition (code X'08') 3-219 

element (DPRINT) 3-35 

key (DEPRES) 3-37 

to system with halt option (H), operating procedure 6-6 
to system option (R), operating procedure 6-6 
usage in #DSPLY 3-41 

RETURN, PMC syntax 3-191 

rolldown and print (#DSPLY, DSPLYN) 3-41 

rolldown usage in LIST 3-66 

rollup usage in LIST 3-66 

RSR (X'5A'), restore internal data file pointer, pseudo 

instruction 3-241 
RST (X'5C), reset external data file pointer, pseudo instruction 

3-241 

RUN program name core map (8K system), example 3-156 

RUN as used in #KEDIT 3-55 

RUN/STEP/TRACE 

keyword program-#KRUNI 3-9 1 

usage in compiler 3-155 



save area, I/O parameter list, general description 6-10 

save/restore core-NPAUSE, $PAUSD, $RSTR 3-14 

SAVE keyword program-#KSAVE 3-92 

saved program file, allocation 2-8 

SA1 (X'36'), stack vector array element address, pseudo 

instruction 3-257 
SA2 (X'38'), stack matrix array element address, pseudo 

instruction 3-258 
SB1 (X'3A'), stack character array element address, pseudo 

instruction 3-259 
scaling 3-266 

scan BASIC statement to EOS character 3-180 
scan routine branch table-BFSTBL 3-168 
scan trace reference list routine 3-199 
SCP (system control program 3-61 
scratch file deletion 

configure utility program #UCNFI 3-129 



initialize disk utility program #UINIT 3-134 
mount keyword program #KMOUN 3-75 
nucleus initialization program #MIPPE 3-2 

SCSTRG-character string check and move (#KCHAN) 3-48 

SCTR-initiai volume label (#UINIT) 3-1 36 

SCYLCK (#UATRC) 3-126 

SCI (X'24') s stack character array field, pseudo instruction 
3-253 

SDF (segment descriptor field) 2-1 1 

SDF (segment descriptor field) format 5-21 

SDISKS (#UATRC) 3-126 

SDISKS usage in #UDISV 3-144 

SDR (disk statistical data recording) format 5-9 

SDR (nondisk statistical data recording) format 5-10 

SDR (statistical data record), NERLOG 3-9 

SDSYNC (#SDSYN) 3-34 

SD0 (X'2E'), stack arithmetic array descriptor, pseudo 

instruction 3-254 
SD1 (X'30')> stack arithmetic array descriptor (redimension 1), 

pseudo instruction 3-255 
SD2 (X'32'X stack arithmetic descriptor (redimension 2), 

pseudo instruction 3-256 
search filename directory subroutine-SRCHFN 3-115 
search null directory subroutine-SURCHN 3-118 
search password directory subroutine -SGETDB 3-114 
search for specified line number 3-26 
search symbol table in trace 3-222 
secondary data element (code X'07') 3-220 
secondary image segment (code X'05') 3-220 
section 

1, introduction 1-1 

2, method of operation 2-1 

3, program organization 3-1 

4, directory 4-1 

5, data area formats 5-1 

6, diagnostic aids 6-1 

7, object program 7-1 
sector, format 3-7 
sector, ID field 3-7 

sector (multiple) transfer operations (#SFLOA) 3-225 
sector resolution (allocation) and organization 3-158 
segment, data record 2-11 
segment descriptor field (SDF) 2-11 
segment descriptor field (SDF) format 5-22 
selected system programs, allocation 2-5 
sequentially occurring data elements 3-218 
SET keyword program-#KSETI, #KSOVR 3-94 
SFADFR-active external data file 3-218 
SFGETR-input an element from an external data file 3-218 
SFINDF-find specified file subroutine 3-11 1 
| usage in #KCALL 3-46.1 
SFPUTR-output an element to an external data file 3-218 
SFRSET-close or reset external data files 3-218 
SFSYNC (#SFSYN) 3-32 

SF1 (X'22'), stack arithmetic vector element, pseudo instruction 
3-250 

SF2 (X'24'), stack arithmetic matrix element, pseudo instruction 
3-241 

SGETDB-search password directory subroutine 3-1 14 
| usage in #KCALL 3-46.1 
sift and bubble sort (worst case example) 3-198 
sifting down and bubbling up (LSORTA) 3-197 
sign bit, floating-point arithmetic 3-266 
significant digits, floating-point arithmetic 3-266 
SIN function, label trace of execution 3-27 3 
single line deletion (GUFUPD) 3-23 

single matrix function call, (MF1), pseudo instruction 3-236 
single variable references in a list 3-175 
SMFNAM (SRCHFN) 3-115 
SMINDI (SRCHFN) 3-115 
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SMNDEA (SURCHN) 3-118 

SMNSCT (SURCHN) 3-118 

SMNULT (SURCHN) 3-118 

SMUDBA (SRCHFN) 3-115 

SMUDEA (SRCHFN) 3-1 15 

SM1FNE (SRCHFN) 3-115 

sorting the branch address table— LSORTA 3-197 

source module labeling conventions 4-7 

space full zone (code X'05) 3-219 

space packed zone (code X'06') 3-219 

SPADUP (#SPACK) 3-124 

SPAPDT (#SPACK) 3-124 
| SPSYNC (#SPSYN) 3-34.1 

SRCHFN-search filename directory subroutine 3-115 
| usage in (#KCALL) 3-46.1 

STA (X'34'), stack virtual address, pseudo instruction 3-257 

stack arithmetic array descriptor (redimension 1), (SD1), 
pseudo instruction 3-255 

stack arithmetic array descriptor (redimension 2), (SD2), 
pseudo instruction 3-256 

stack arithmetic array descriptor (SDO) pseudo instruction 3-254 

stack-arithmetic-expression-value 3-167 

stack arithmetic matrix element (SF2) pseudo instruction 3-251 
stack arithmetic vector element (SF1) pseudo instruction 3-250 
stack-basic-element 3-178 

stack character array element address, (SB1), pseudo instruction 
3-259 

stack character array field (SCI) pseudo instruction 3-253 
stack-character-expression field 3-166 
stack character field (STC) pseudo instruction 3-25 2 
stack execution control code, (STX), pseudo instruction 3-259 
stack floating point value, (STF), pseudo instruction 3-249 
stack matrix array element address, (SA2), pseudo instruction 
3-258 

stack popper-BFS160 3-168 

stack-update-matrix-descriptor PMC sequences 3-176 
stack and unstack operations (see also pseudo instructions) 3-249 
stack-variable-address sequences 3-175 
stack vector array element address, (SA1), pseudo instruction 
3-257 

stack virtual address, (STA), pseudo instruction 3-257 

stacked data type codes, entry point (FZXINP) 3-218 

stacked error entry at $$ERSK 3-18 

stand-alone dump, example 6-13 

stand-alone dump program 6-13 

stand-alone dump, usage and procedure 6-12 - 

standard precision execution equates— $I@SEQ 4-1 1 

standard precision, floating-point data 3-266 

statement address table 3-159, 3-197 

statement address table, general description 3-157 

statement branch table entry (#SFSYN) 3-32 

statement header, (STH), pseudo instruction 3-261 

statement input subroutine-BAGETC 3-160 

statement line numbers relation to virtual addresses 3-157 

statements, PTF 6-7 

statistical data record (SDR), NERLOG 3-9 

STC (X'28'), stack character field, pseudo instruction 3-252 

step mode (#EXMSG) 3-20 

STEP keyword program-#KRUNI 3-91 

STEP as used in #KEDIT 3-55 

STF (X'20')> stack floating point value, pseudo instruction 3-249 

STH execution in trace line number mode (F2LINT) 3-222 

STH (statement header) processing 3-206 

STH (X'64')> statement header, pseudo instruction 3-261 

stop address selection 6-17 

STOP, PMC syntax 3-191 

storage addresses, machine instruction A-3 

storage allocations (see allocation) 

STORIN-null directory entry subroutine 3-116 

STUFID-filename directory entry subroutine 3-1 17 



STX (X'3C'), stack execution control code, pseudo instruction 
3-259 

SUB (X'08'), subtract, pseudo instruction 3-230 
subtract, (SUB), pseudo instruction 3-230 
supervisor call, (SVC), pseudo instruction 3-261 
supported optional devices 1-2 
SURCHN-search null directory subroutine 3-118 
SUSPEND keyword program -#KSSPN 3-93 
SVC (supervisor call) processing 3-206 
SVC (X'02'), supervisor call, pseudo instruction 3-261 
SVOLlD-find volume-ID subroutine 3-113 
| usage in (#KCALL) 3-46.1 
switch to alternate track (DKDISK) example 3-6, 3-7 
symbol processing in BDSYMB 3-164 
symbol table search in trace 3-222 
symbol tables, BASIC language 3-165 
symbol translator subroutine-BDSYMB 3-164, 3-176 
symbol types 3-164 

SYMBOLS keyword program-#KSYMB 3-97 
syntactical units of BASIC statements 3-177 
syntax 

BASIC statement keyword (see syntax, PMC) 

checker for DISPLAY 3-53 

checker for SET 3-94 

DATA statement, PTF command 6-9 

END statement, PTF command 6-9 

HDR statement, PTF command 6-7 

keyword statement (see syntax, PMC) 

PTF command statements 6-7 

PTF statement, PTF command 6-8 
syntax check GET (card) input line (FZXINP) 3-218 
syntax, PMC (pseudo machine code) 

CLOSE 3-181 

DATA 3-181 

DEF 3-181 

DIM 3-182 

END 3-182 

FOR 3-182 

GET 3-183 

GOSUB 3-183 

GOTO (multiple) 3-183 

GOTO (simple) 3-183 

IF (arithmetic) 3-184 

IF (character) 3-184 

IMAGE (:) 3484 

INPUT 3-185 

LET 3-185 

LET (arithmetic, simple) 3-185 
LET (character) 3-186 
MAT 3-186 
MAT GET 3-186 
MAT INPUT 3-187 
MAT PRINT 3-187 
MAT PUT 3-188 
MAT READ 3-188 
NEXT 3-188 
PAUSE 3-188 
PRINT 3-189 
PRINT USING 3-189 
PUT 3-189 
READ 3-190 
REM 3-190 
RESET 3-190 
RESTORE 3-190 
RETURN 3-191 
STOP 3-191 
system 

commands, description 1-1 
communication area-NUCLES 3-9 
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system (continued) 

communication area (NUCLES) format 5-2 

components directory 4-1 

components and programs, logical division 2-1 

configuration (IPL) 3-3 

configuration record equates-@CNFEQ 4-9 

control program (SCP) 3-59 

equates-#TEQUl 4-7 

equates-#TEQU2 4-11 

file example (Figure 2-2) 2-5 

files, format 2-4 

flow 2-2, 2-3 

and hardware equates-@SYSEQ 4-7 

hardware I/O equates-@HDWEQ 4-8 

help text file format 5-25 

indicator checking at a specific time 6-17 

initialization-IPL, components 3-1 

initialization (IPL) flowchart 3-3 

library file, allocation 2-6 

library file example (Figure 2-3) 2-7 

library file, format (Figure 5-11) 

loader-NBLOAD, $BLOAD, $RLOAD, $LOADR 3-16 
loader (NBLOAD) core map 3-16 
nucleus 3-4 

nucleus core map (Figure 3-2) 3-4 

printer calling routine- $SPRNT 3-41 

printer IOCR interface-NSPRNT, $SPRNT 3-10 

printer IOCR (NSPRNT, $SPRNT) 3-10 

printer output, example of nucleus patch 6-12 

printer output format (FZUPRT) 3-220 

printer physical IOCS-DFPRNT 3-214 

program area equates for relative disk addresses and 
sector counts-@SPFEQ 4-8 

program, disk resident, patching 6-14 

program file 2-6 

program file directory 

sample of disk dump 6-16 
table- ##DRTY 5-31 
■ program file PTF's (#UPTFI) 3-138 

programs, logical division 2-1 

status check (#GUFUD) 3-26 

stop procedure for core or disk dump 6-17 

stop/system reset/system start (#ZUTMO) 3-145 

work area, general description 2-5 

work area equates for physical disk addresses and sector 
counts-@WKAEQ 4-8 

work area (system work file), general description 2-5 

work file IOCS-DL4ICS 3-101 

work file (packed data example) 3-23 

work file (system work area), general description 2-5 
System/3 Basic Assembler Language, Appendix A A-l 
System/3 BASIC, description 1-1, 1-2 
System/3 BASIC, program components 3-1 

T 

reverse the program load trace option (#ZUTMO) 3-145 
trace option, operating procedure 6-4 

tab 

keys (DEPRES) 3-37 
left/tab left and index (#DSPLY) 3-41 
right (#DSPLY) 3-41 
tables 

##CKTB-command key 5-30 
##DRTY-program file directory 5-31 
#BCOMP~core resident routines 3-153 
#BOVLY-PMC generator (statement processor overlays) 
3-154 

#ZDUMP branch 3-149 



tables (continued) 

arithmetic array symbol table 3-194 
assembler instruction reference A-3 
BASIC program file structure 5-18 
branch address 3-160 
branch and statement address 3-197 
character array symbol 3-195 
compiler filename 3-157 

compiler/loader common parameter area 3-192 

configuration record 5-7 

contents of virtual memory (interpreter) 3-202 

conversion of virtual addresses to disk addresses 7-2 

CRT line segment table (CLST) 3-67 

delete parameter list 5-29 

directories to system libraray file 5-15 

disk 

control field 5-29 

parameter list 5-28 

statistical data recording 5-9 

volume format 5-6 
DPL (disk parameter list) 3-5 
end of file record 5-22 
end of paging subroutine 3-210 
entries for I/O record 3-45 
error history log 5-8 
error recovery procedure (DKDISK) 3-6 
. example of floating-point numbers 3-267 
exponent conversion (internal format to decimal) 3-267 
file 

directory 1 5-21 
directory 2 5-23 
index table 5-20 

library addresses and tables-@DIREQ 4-9 
filename directory block 5-17 
help text records 5-26 

individual volume statistics and master SIO 5-9 

initialization of elements in virtual memory 3-194 

I/O parameter list, device ID 6-10 

keyword entry (#EDMAN) 3-28 

list control block (LCB) 3-67 

lock and read only indicator 3-222 

message entry (#ERRPG) 3-18 

nondisk statistical data recording 5-10 

null directory 5-15 

outboard recording 5-11 

parameters passed to 

UTKUSE subroutine 3-119 

UTVTOC subroutine 3-121 
password directory 5-16 
print parameter list 5-27 
processor address— B HDP AT 3-158 
pseudo instruction reference 3-228 
segment descriptor field 5-22 
source module labeling conventions 4-7 
statement 

address 3-159 

branch (#SFSYN) 3-32 
symbol types in BDSYMB 3-164 
system 

communication area (NUCLES) 5-2 
help text file 5-25 
System/3 BASIC components directory 4-1 
trace 3-196 
volume label 5-12 
volume table of contents 5-14 
temporary disk work area allocation 2-6 
terminate 

compiler PMC generation phase 3-180 
print using (mask X'10') 3-220 
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terminating 

character (EOS) of current segment 3-160 

pseudo instruction 3-201 
termination, DCALC 3-276 
test 

configuration record (#UCNFI) 3-129 

suspect tracks 3-126 
test and translate 

arithmetic constant (#S DSYN) 3-34 

character constant (#SDSYN) 3-34 
TEST usage in #UATRC 3-126 
text character pointer 

input parameter to BDSYMB 3-165 

output parameter from BDSYMB 3-165 
TKSCYL (UTKUSE) 3-119 
TKSYLN (UTKUSE) 3-119 
trace 

bit 3-222 

FE program load 3-44 

line numbers subroutine-FZLINT 3-222 

mode, element unstacking 3-2 1 0 

mode reference list (input parameters) 3-195 

option (T), operating procedure 6-8 

table 3-196 

variables subroutine-FZVART 3-222 
TRACE keyword program-#KRUNI 3-9 1 
tracing labels during execution of 

ENTER+ function 3-273 

SIN function 3-273 
track 

format 3-7 

initialization (#UNIT) 3- 1 35 
usage mask 

displacement 3-119 
general description 2-5 
utility program-UTKUSE 3-119 
utility program-#UCDIS 3-131, 3-1 32 
triple matrix function call (MF3) pseudo instruction 3-238 
TSMLES (SRCHFN) 3-1 15 
two-byte physical disk address 3-101 
two-star (**) library 

directory 5-11,5-15 
general description 2-6 
type code, ^current BASIC statement 3-156 



UALLOC (#UALLO) 3-127 

UATRCK (#U ATRC) 3-125 

UCDISK (#UCDIS) 3-131 

UCNFIG (#UCNFI) 3-129 

UCPLIB (#UCPLI) 3-130 

UDISVT (#UDISV) 3-143 

UEXLIB (#UEXLI) 3-133, 3-134 

UINERP-assign alternate tracks (#UINIT) 3-1 36 

UINITL (#UINIT) 3-134 

UINSEK-verify correct ID on all tracks (#UINIT) 3-1 36 
UN ASSIGN (#UATRC) 3-126 
unnormalized decimal number 3-266 
unpacked-decimal format, arithmetic 3-268 
unresolved 

operands (holes) 3-157 

virtual addresses in PMC generators 3-157 
unstack 

character element, (USC), pseudo instruction 3-254 
floating point element, (USF), pseudo instruction j^-252 
UPACKO-syntax check and load SPACKU (#UPACK) 3-1 37 
UPACKU- test for initial or second entry (#UPACK) 3-1 37 
update 

DADDR argument (#SPACK) 3-123 
user directories (#SPACK) 3-123 
work file (#GUFUD) 3-26 



UPTFIX (#UPTFI) 3-138 

USC (X^C), unstack character element, pseudo instruction 

3-254 
user 

file (filename), general description 2-6 

program data file format 2-8 

programs and data, storage allocation 2-6 
USF (X'26') 5 unstack floating point element, pseudo instruction 

3-252 
utility 

aid program maintenance-#ZUTMO 6-1 

command, general description 1-1 

dump, disk address specifications 7-3 

programs 

general description of 2-1 
detailed descriptions of 3-125 
UTKFLG (UTKUSE) 3-119 
UTKINP (UTKUSE) 3-119 
UTKPRC (UTKUSE) 3-119 
UTKTBF (UTKUSE) 3-119 
UTKTYP (UTKUSE) 3-119 
UTKUSE 

track usage mask utility program 3-1 19 

usage in #UCDIS 3-131 

usage in UTVTOC 3-121 
UTVDEL usage in UTVTOC 3-121 
UTVDFT usage in UTVTOC 3-121 
UTVEXP usage in UTVTOC 3-121 
UTVINF usage in UTVTOC 3-121 
UTVIST 

insert work area file (#UALLO) 3-128 

usage in UTVTOC 3-121 
UTVSIIK (UTVTOC) 3-121 
UTVTOC 

VTOC utility subroutine 3-121 

parameters passed to 3-121 



valid delimiter sequence scan (#SDSYN) 3-34 
validity check array row (FZXINP) 3-219 
VERROR-DCALC error messages 3-273 
VINITI-DCALC initialization routine 3-272 
virtual addresses 

converted to disk addresses 7-2 

unresolved 3-157 
virtual memory 

address resolution 3-157 

allocation 2-6 

allocation of arrays 3-193 

allocation of data file buffers 3-194 

array allocation 3-193 

array allocation routine 3-199 

concept 2-8 

contents (DCALC) 3-270 
contents (interpreter) 3-202 

conversion of virtual addresses to disk addresses 7-2 

and core-resident interpreter referencing 3-205 

directory equates (directory 1 and 2)-@VMDEQ 4-9 

disk area (location) 7-1 

dump #ZUTMO 3-147 

dump option, operating procedure 6-2 

dump overlay- #ZDUMP 3-149 

fixed addresses-$V$EQU 4-18 

function load routine 3-200 

holes 3-157 

how to lay out (long precision) 7-7 
how to lay out (standard precision) 7-3 
initialization of elements 3-194 
location order, line numbers 3-196 
map 7-5 
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virtual memory (continued) 

map, DCALC (with CRT) 3-272 

method to lay out contents of execution-time disk 
dump 7-1 

modification routine 3-200 

output subroutine-BBPUTC 3-161, 3-168 

paging subroutine-IPGMDL 3-204 

push/pull subroutine-FZZVMP 3-222 

resident execution subroutines 3-202 

resident subroutines (DCALC)-#WMRS, ##VUFA 3-270 

seek to first cylinder 3-155 

unresolved operands 3-196 
VM (see virtual memory) 
VOL-LABEL indicators (#UINIT) 3-136 
volume 

ID table entry modification (#UCNFI) 3-129 

information cylinder (cylinder 0) 2-4 

label 2-4 

label format 5-12 

label, general description 2-4 

label, track usage mask 3-119 

table of contents (VTOC) 

DELETE utility program -#UDELV 3-141 

DISPLAY utility overlay- #UDISV 3-143 

equates-@VTCEQ 4-9 

format 5-14 

general description 2-4, 2-5 

index call in VTOC-DISPLAY (#UDISV) 3-144 

library file creation (#UALLO) 3-128 

scratch file deletion configure utility #UCNFI 3-129 

scratch file deletion initialize disk utility #UINIT 3-1 34 

scratch file deletion mount keyword #KMOUN 3-75 

scratch file deletion nucleus initialization #MIPPE 3-2 

utility subroutine-UTVOC 3-121 

work area file creation (#UALLO) 3-128 



WIDTH 

keyword program -#KWIDT 3-99 

usage in FZSPRT 3-220 
work areas, paging subroutine (IPGMDL) 3-209 
work file 

allocation 2-5 

crush and reorder-GUFCSH 3-24 
data area 2-8 
end-of-file record 3-191 
FIT 2-7 

PUT subroutine-GPUTIT 3-107 

retrieval subroutine-GRABIT 3-109 

system operations 2-7 

update/ crusher-#GUFUD 3-2 1 

update-GUFUPD 3-22 
write page, compiler, equated to B$PFWP 3-161, 3-162 
write-page function, exceptions 3-162 
WRITE keyword program -#KWRIT 3-1 00 



ZDUMPV (#ZDUMP) 3-149 
ZUTCDO core/disk dump (#ZUTMO) 3-148 
ZUTCPO core/disk patch (#ZUTMO) 3-147 
ZUTDCO disk compare (#ZUTMO) 3-148 
ZUTDDO disk dump (#ZUTMO) 3-148 
ZUTDPO disk patch (#ZUTMO) 3-147 
ZUTDWO disk write (#ZUTMO) 3-148 
ZUTHLT halt (#ZUTMO) 3-147 
ZUTMON (#ZUTMO) 3-145 

ZUTOSR select option to be performed (#ZUTMO) 3-147 

ZUTPPR print messages, set parameters (#ZUTMO) 3-147 

ZUTRET return (#ZUTMO) 3-147 

ZUTTFL trace (#ZUTMO) 3-147 

ZUTVMD virtual memory dump (#ZUTMO) 3-147 



wait 

#DSPLY 3-41 

and check for errors (DPRINT) 3-35 598 error (#UATRC) 3-126 

for I/O to complete (DFPRNT) 3-214 | 2345 halt 6-18 
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